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

Question

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

Answer 1

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

Comments

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

Answer 2

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