Введите, какое значение воспримет переменная i, по окончанию программки:Var N,i,S:

Введите, какое значение примет переменная 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.

Людмила 2019-02-11 23:20:20

А чему N одинакова?