Требуется написать программу при выполнении которой - вопрос №1698451 от Ymnusha 03.04.2021 15:58

Question

Информатика: Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число n, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.

Ymnusha · Answer

uses crt; var p,n:integer;beginp:=1;write( N= );read(n);while n 0 do beginp:=p*(n mod 10);n:=n div 10;end;writeln( p= ,p);end....