Введите, какое значение примет переменная i, по завершению программы:

Var N, i, S: integer;

Begin

Write ('N=') ; readln (N) ;

S:=0; i:=1;

Repeat

S:=S+i;

i:=i+1;

Until i знак больше N;

Writeln ('S=', S) ;

End.

Question

Гермес

28 февраля, 17:46

+5

Ответы (1)

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

Вера · Answer 1

Вера 28 февраля, 19:33

0

Если n=5 тогда S = 15

Введите, какое значение примет переменная i, по завершению программы:Var N, i, S: integer;BeginWrite ('N=') ; readln (N) ;S:=0; i:=1;RepeatS:=S+i;i:=i+1;Until i знак больше N;Writeln ('S=', S) ;End.