Найти значение всех двухзначных чисел от 10 до 99Программирование. Информатика.

Question

Найти значение всех двухзначных чисел от 10 до 99
Программирование. Информатика.

Answer 1

Program p1;
var   i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do 
begin  
a:=a+i; 
end; 
writeln(a); 
readln;
end.