Дано целое натуральное число. определить является ли произведение всех его цифр...

Question

Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом
помогите пожалуйста через while или until
паскаль

Answer 1

uses crt;
var x:string;
i,mult,len:integer;
begin
mult:=1;
read(x);
i:=1;
len:=length(x);
while i<=len do<br>begin
mult:=mult*strtoint(x[i]);
i:=i+1;
end;
if length(inttostr(mult))=2 then 
writeln('Yes')
else 
writeln('No'); 
end.