Требуется написать программу при выполнении которой - вопрос №1699353 от Vymnuk228 23.01.2020 09:31

Question

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

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