Найти произведения цифр входящих в состав данного трёхзначного числа. 20 .

shansosia05sofisofi shansosia05sofisofi    2   16.06.2019 08:20    0

Ответы
Анна2849 Анна2849  13.07.2020 06:51
Program enot;
Var i,a,b,s:integer;
begin
read(a);
b:=1;
s:=1;
for i:= 1 to 3 do
begin
b:=a mod 10;
s:=s*b;
a:=a div 10;
end;
write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика