Написать программу, которая для целых чисел из диапозона [30;60] выводит на экран квадратные корни этих чисел. (FOR)
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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.