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

2

Ответы и объяснения

2014-02-12T15:17:20+04:00
Var a,b:integer;
begin
writeln('Введите площадь круга, затем квадрата');
read (a,b);
if b>a then
writeln('Поместится')
else
writeln('Не поместится');
end.
не правильно, тут еще от диагонали зависит
2014-02-12T15:23:03+04:00
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.