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

Question

Константинка

10 мая, 18:52

+1

Ответы (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.