Напиши те решения var у : real; i : integer; у - вопрос №843087411 от робот66 21.11.2020 17:46

Question

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

робот66 · 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;