While и repeat! 3. Вывести ** экран таблицу значений функции y:=vx (корень из х) **...

Question

While и repeat!
3. Вывести на экран таблицу значений функции y:=vx (корень из х) на интервале [2; 7] c шагом 0.5.

Answer 1

Var i:real;
begin
  i:= 2;
  while(i <= 7) do<br>  begin
    writeln('При x = ', i, '  y = ', sqrt(i));
    i:= i + 0.5;
  end;
 
end.