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

Question

Информатика

Феоктист

12 января, 15:20

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

+2

Ответы (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.