Написать программу в паскале. найти произведение - вопрос №23060023 от Simuran999 11.11.2021 05:15

Question

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

Simuran999 · Answer

Это первый класс 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....