Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.

Question

Информатика

Вассочка

8 июля, 09:56

Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.

+4

Ответы (1)

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

Егор · Answer 1

Program n1;

var a, sum, i: integer;

begin

sum:=0;

for i:=1 to 47 do

begin

readln (a) ;

if (a>0) and (a mod 3=0) then sum:=sum+a;

end;

writeln (sum) ;

end.