Язык "паскаль авс" найти произведение всех двузначных чисел, сумма цифр которых равна 8

жмлпр жмлпр    3   03.06.2019 21:00    2

Ответы
456akcyka 456akcyka  05.07.2020 01:46
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика