PascalНайти сумму всех двухзначных чисел, которые кратны трём.

Question

Pascal
Найти сумму всех двухзначных чисел, которые кратны трём.

Comments

вводить массив?

---

Всех до какого или до бесконечности

---

У нас бесконечно много двузначных цифр? :)

---

Ахах дауж это я ожёг

---

ахах я тож не внимательно прочитал)

Answer 1

Uses crt;
var i,sum:integer;
begin
     sum:=0;
     for i:=10 to 99 do
         if i mod 3=0 then sum:=sum+i;
     writeln(sum);
end.

Answer 2

Uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.