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

Question

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

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