Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числомпомогите пожалуйста через while или untilпаскаль
Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом
помогите пожалуйста через while или until
паскаль
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
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.
Не нашли ответ?
Похожие вопросы