Написать программу на Паскале: Среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
uses crt; а что значит эта строчка?)
Ответ дал:
0
подключение модуля. если не проходили не пиши. она не обязательна
Ответ дал:
0
ок, спасибо большое)
Похожие вопросы
2 года назад
10 лет назад
10 лет назад
10 лет назад