Напиши те решения var у : real; i : integer; - вопрос №8431776111 от Hhhhhhhhelppppp 22.01.2020 02:57

Question

Информатика: Напиши те решения var у : real; i : integer; у : = 1 ; i : = 1; while i 1 do begin y: =y + 1 / i; i: = i – 1; end;

Hhhhhhhhelppppp · Answer

I равно 1, цикл выполняться не будет, y так и останется 1....

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