Информатика, вопрос задал stMiller , 7 лет назад

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

Приложения:

Ответы на вопрос

Ответил estengseant
0
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
Новые вопросы