Информатика, опубликовано 2018-08-22 19:26:56 by Гость
Найти произведения цифр входящих в состав данного трёхзначного числа. Дам 20 баллов.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.