Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б

Iikhovaydov Iikhovaydov    3   01.06.2019 02:10    0

Ответы
anya64yankop08swl anya64yankop08swl  02.07.2020 11:20
Это первый класс uses crt; var a,b,sum,pro:integer; begin readln(a,b); for a to b do if a mod 3 =0 then sum:=sum+a; for a to b do if a mod 3 =0 then pro:=pro+a; write (summa='sum','proizvedenie='pro); end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика