Требуется написать программу при выполнении которой - вопрос №1698676 от lyubashabelyaeva 13.07.2021 17:13

Question

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

lyubashabelyaeva · 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....