Ответы
Ответ дал:
0
var
a : array [1..6] of integer;
b : array [1..6] of real;
i : integer;
begin
for i:=1 to 6 do
begin
readln(a[i]);
b[i] := a[i] - 1/ a[i] + 2;
end;
for i:=1 to 6 do
writeln(b[i]);
end.
//PascalABC
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад