Найти значение всех двухзначных чисел от 10 до 99

Программирование. Информатика.

Question

Саиф

9 февраля, 20:10

+4

Ответы (1)

Знаете ответ на вопрос?

Фекля · 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.

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