Решите по информатике
Приложения:

Ответы на вопрос
Ответил 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
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
Новые вопросы
Другие предметы,
2 года назад
Українська мова,
2 года назад
Математика,
7 лет назад
Алгебра,
7 лет назад
Алгебра,
9 лет назад
Химия,
9 лет назад