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

Question

Алёна

24 февраля, 15:59

+3

Ответы (1)

Знаете ответ на вопрос?

Жела · 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.