Паскаль. дана площадь круга и площадь квадрата. поместится ли круг в квадрат? квадрат в круг?

117

362

Посмотреть ответы 3

Ответы на вопрос:

Neznayka56000

Информатика

4,4(94 оценок)

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.

lerakycher2001

Информатика

4,7(39 оценок)

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