дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом
помогите пожалуйста через while или until
паскаль
помогите пожалуйста через while или until
паскаль
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x:string;
i,mult,len:integer;
begin
mult:=1;
read(x);
i:=1;
len:=length(x);
while i<=len do
begin
mult:=mult*strtoint(x[i]);
i:=i+1;
end;
if length(inttostr(mult))=2 then
writeln('Yes')
else
writeln('No');
end.