Напиши те решения Var у : real; i : integer; у

Напиши те решения Var у : real; i : integer; у := 1 ; i := 1; while i gt; 1 do begin y:=y + 1 / i; i:= I 1; end;

Задать свой вопрос
1 ответ
I одинаково 1, цикл выполняться не будет, y так и останется 1.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт