Написать программу на Паскале: Среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4

Question

Информатика

Каздоя

3 октября, 21:15

Написать программу на Паскале: Среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4

+1

Ответы (1)

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

Николаша · Answer 1

Program summa;

uses crt;

var

n, summ, I:integer;

begin

summ:=0;

for I:=1 to 10 do begin

read (n) ;

if ((n >=100) and (n <=999)) and (n mod 4 = 0) then summ:=summ+n end;

writeln (summ) ;

end.