Question

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

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.

Answer 2

uses crt; а что значит эта строчка?)

Answer 3

подключение модуля. если не проходили не пиши. она не обязательна

Answer 4

ок, спасибо большое)