Оператор Repeat.

Найти сумму всех нечетных двузначных чисел.

Question

Евстрат

8 июля, 19:11

+4

Ответы (1)

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

Евгеха · Answer 1

Var a, s:integer;

begin

s:=0;

a:=9;

repeat

a:=a+2;

s:=s+a;

until a=99;

writeln ('s = ', s) ;

end.

Результат:

s = 2475

Оператор Repeat.Найти сумму всех нечетных двузначных чисел.