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

ПАСКАЛЬ. Дана площадь круга и площадь квадрата. Поместится ли круг в квадрат? квадрат в круг?  
Гость
Ответ(ы) на вопрос:
Гость
var a,b:integer; begin writeln('Введите площадь круга, затем квадрата'); read (a,b); if b>a then writeln('Поместится') else writeln('Не поместится'); end.
Гость
var a,d,krug,kvad: real;   begin  write('Введите площадь круга: ');   readln(krug);  write('Введите площадь вадрата: ');   readln(kvad);   d:=2*sqrt(krug/Pi);   a:=sqrt(kvad);   if d
Не нашли ответ?
Ответить на вопрос
Похожие вопросы