Напиши те решения Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;
Ответы
Ответ дал:
0
i равно 1, цикл выполняться не будет, y так и останется 1.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад