Напишите программу на языке Pascal: Посчитайте кол-во и сумму чисел, кратных 3 в диапазоне от - 30 до 30.

Question

Информатика

Стефанида

22 января, 03:25

Напишите программу на языке Pascal: Посчитайте кол-во и сумму чисел, кратных 3 в диапазоне от - 30 до 30.

+5

Ответы (1)

Знаете ответ на вопрос?

Женюра · Answer 1

Var

i, sum, col:integer;

begin

for i:=-30 to 30 do

begin

if i mod 3 = 0

then

begin

inc (col) ;

inc (sum, i) ;

end;

end;

write (sum,' ', col) ;

end.