Очень прошу, помогите пожалуйста

Очень прошу, помогите пожалуйста

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт