Информатика, опубликовано 2018-08-22 20:53:39 by Гость
Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б
Ответ оставил Гость
Это первый классuses crt;var a,b,sum,pro:integer;beginreadln(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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.