Даны площадь S1 круга и площадь S2 квадрата определите поместиться ли круг в квадрат. Напишите программу на паскале

Question

Информатика

Адель

18 февраля, 22:47

Даны площадь S1 круга и площадь S2 квадрата определите поместиться ли круг в квадрат. Напишите программу на паскале

+4

Ответы (1)

Знаете ответ?

Витюня · Answer 1

Var s1, s2, r, a:real;

begin

read (s1, s2) ;

r:=sqrt (s1/pi) ;

a:=sqrt (s2) ;

if a*sqrt (2) / 2<=r then writeln ('Поместится')

else writeln ('Не поместится') ;

end.

Вроде так, но проверьте на своих тестах