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

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

Question

Фаджара

18 августа, 13:41

+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Программирование. Информатика.