Pascal ABC. Подсчитать разность первых 23-х целых положительных чисел. (с счетчиком for) или топо того

Question

Афросим

6 января, 03:11

+3

Ответы (1)

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

Илария · Answer 1

Var

i, r:integer;

begin

for i:=1 to 23 do

r:=r-i;

writeln ('разность разность первых 23-х целых числе: ', r) ;

end.