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

Question

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

Comments

5 сек

---

Все числа трехзначные или сделать проверку?

---

Числа произвольные

---

ок

---

целые как я понял?

---

да

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;<br> writeln (summ);
end.

Comments

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

---

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

---

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