Напиши те решения var у : real; i : integer; - вопрос №843087411 от krav4enkom 11.07.2021 15:37

Question

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

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