Дано целое натуральное число

Question

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

Answer 1

54

d666l

16 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: