Требуется написать программу при выполнении которой - вопрос №1699353 от sanjabr82oymx7f 15.01.2023 03:56

Question

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

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