Написать программу которая подсчитывает сумму натуральных чисел кратных 3

Question

Написать программу которая подсчитывает сумму натуральных чисел кратных 3

Comments

да

---

алгоритм можно дать? или обязательно программу?

---

обязательно программу

---

Pascal, Basic?

---

pascal

---

когда выходить из цикла?

---

без разницы

---

Ааа от этого зависит моя четверичная оценка

---

получай

---

спасибо

Answer 1

Program Chisla;
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end