РЕБЯТ, КТО ШАРИТ В ИНФОРМАТИКЕ. РЕШИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НАДО!! ​

1: Ответ: 5

Решение:

i=0, s=0

заходим в цикл

i=0+1=1

s=0+1*1=1

___

i=1, s=1

заходим в цикл

i=1+1=2

s=1+2*2=5

___

i=2, s=5

т.к. i=2, в цикл зайти не можем.

ответ: S=5

2:

Программа:

program h3;

var n, i, sum: integer;

begin

i:=1;

sum:=0;

readln(n);

while i<(n+1) do

begin

sum:=sum+i*i;

i:=i+1;

end;

writeln(sum);

end.

Проверил, всё работает ;)