написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б
Ответы на вопрос
Ответил lekcey
0
это первый класс
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.
Новые вопросы