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

+ 0 -

Bogdanovalenka

02 сент. 2013 г., 17:26:32 (10 лет назад)

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

+ 0 -

Егор30

02 сент. 2013 г., 18:43:12 (10 лет назад)

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.