Напиши те решения var у : real; i : integer; - вопрос №1118431099 от artemstepanyuk 31.10.2021 00:20

Question

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

artemstepanyuk · 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;