Дано натуральное число. б) Верно ли, что произведение его цифр меньше 50? Вот код
var n,p:integer;
begin
write('n = ');
readln(n);
p:=1;
while n>0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
if p<=50
then writeln('Произведение цифр числа = ',p,' (<= 50)')
else writeln('Произведение цифр числа = ',p,' (> 50)');
end.

составить блок схему

aytac200505    3   21.02.2021 12:25    73