Question

Введите, что появится на экране (позавершению программы), если значение N=15
Var N, i, S: integer;
Begin
Write('N='); readln(N);
S:=0;
For i:=1 to N do
S:=S+i;
Writeln('S=', S);
End.

Answer 1

N=15
S=0
для i от 1 до 15 выполнить S=S+i

i=1     S=1
i=2    S=3
i=3    S=6
i=4    S=10
i=5    S=15
i=6    S=21
i=7    S=28
i=8    S=36
i=9    S=45
i=10   S=55
i=11    S=66
i=12   S=78
i=13   S=91
i=14   S=105
i=15   S=120

Ответ: S=120