Язык "Паскаль АВС" найти произведение всех двузначных чисел, сумма цифр которых равна 8
Язык "Паскаль АВС" найти произведение всех двузначных чисел, сумма цифр которых равна 8
Гость
Ответ(ы) на вопрос:
ГостьVar i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do
Begin
s:=i mod 10+ i div 10;
if s=8 then a:=a*i;
end;
writeln (a);
end.
Не нашли ответ?
Похожие вопросы