Задание:
Дано целое натуральное число. Определить является ли произведение всех его цифр двузначнымчисломпомогите пожалуйста через while или untilпаскаль
Решение:
uses crt; var x: string; i,mult,len: integer; beginmult: =1; read (x); i: =1; len: =length (x); while i <= len dobeginmult: =mult*strtoint (x[i]); i: =i+1; end; if length (inttostr (mult)=2 then writeln ('Yes') else writeln ('No'); end.
Знаете другой ответ?