Напишите программу, которая вычисляет сумму всех двухзначных чисел.

Question

Напишите программу, которая вычисляет сумму всех двухзначных чисел.

Comments

Можно через repeat<действие> until<условие>

Answer 1

Var a,b:integer;
begin
a:=0;
for b:=10 to 99 do
a:=a+b;
writeln (a);
end. 

Через repeat 

program znanija;
var a,b:integer;
begin
a:=0;
b:=10;

repeat
a:=a+b;
inc(b); // Прибавляем единицу к переменной b. Тоже самое что b:=b+1;
until b>99;

writeln (a);
end. 

Comments

Можно через repeat<действие> until<условие> ? Просто через for....to мы не делали через while....do можно

---

Добавил в решение

---

inc(b) что значит

---

Тоже самое что и b:=b+1;

---

Спасибо, огромное:3

---

Пожалуйста