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

Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы