Написать программу, которая для целых чисел из диапозона [30;60] выводит ** экран...

Question

Написать программу, которая для целых чисел из диапозона [30;60] выводит на экран квадратные корни этих чисел. (FOR)

Answer 1

var a:integer; q:real;
begin
  for a:=30 to 60 do
  begin
    q:=sqrt(a);
    writeln('chislo=',a,'; koren=',q:5:3);
  end;
end.