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

Question

Информатика

Теодорка

28 сентября, 06:25

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

+4

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