Помогает пожалуйста работа в паскале составьте программу вычисления суммы всех...

Question

Помогает пожалуйста
работа в паскале
составьте программу вычисления суммы всех трехзначных чисел кратных 4

Answer 1

Uses crt;
var 
n, sum:integer;
begin
n := 100;
while n < 1000 do   
begin     
sum += n;     
n += 4;   
end;   
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.

Comments

104

---

while эт что

---

так-с

---

здрасьте, вы откуда свалились?

---

с Луны небось?

---

while -- это цикл

---

program zadacha1;
var s,i:integer;
begin
s:=0;
for i:=100 to 999 do
if i mod 4=0 then
begin
s:=+i;
writeln('Сумма всех трёхзначных чисел, кратных 4=',s);
end;
end.

---

вот правильно

---

это один из вариантов

---

вашу задачу можно решить несколькими способами