Question

ПАСКАЛЬ. Дана площадь круга и площадь квадрата. Поместится ли круг в квадрат? квадрат в круг?

 

Answer 1

var a,b:integer;
begin
writeln('Введите площадь круга, затем квадрата');
read (a,b);
if b>a then
writeln('Поместится')
else
writeln('Не поместится');
end.

Answer 2

не правильно, тут еще от диагонали зависит

Answer 3

var a,d,krug,kvad: real; 
 begin  write('Введите площадь круга: '); 
 readln(krug); 
write('Введите площадь вадрата: '); 
 readln(kvad); 
 d:=2*sqrt(krug/Pi); 
 a:=sqrt(kvad); 
 if d<a then  writeln('Поместится') 
 else  writeln('Не поместится');
end.