Question

Написать программу для Паскаль
С использованием цикла while для нахождения y=1/x +x для x 1 до 10 с шагом 2
ПОМОГИТЕ ПОЖ

Answer 1

var 
  x: integer; 
  y: real;
begin
  x := 1;
  while x <= 10 do 
   begin   
    y := 1 / x + x;   
    x:= x+2; 
   end; 
write(y:2:2);
end.