Задается положительное целое число n. нужно вывести произведение его цифр.

tolkov05 tolkov05    2   18.06.2019 17:01    0

Ответы
NaTaShA0930 NaTaShA0930  02.10.2020 04:48
Var s,n:integer;
begin 
Readln(n); 
s:=1; 
repeat   
 s:=s*(n mod 10);   
n:=n div 10; 
until n=0; 
Writeln(s); 
Readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика