Question

Решите по информатике

Answer 1

a) Первая, полная программа для Pascal ABC:
var S,i: Integer;
begin
i:=0;
S:=0;
while i<3 do
begin
i:=i+1;
S:=S+i*i;
end;
writeln(S);
end.

Программа выдаст ответ: 14.

б) Вторая, полная программа для Pascal ABC:
var i: Integer;
S: real;
begin
i:=1;
S:=0;
while i>1 do
begin
S:=S+i/i;
i:=i-1;
end;
writeln(S);
end.

Программа выдаст ответ: 0