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

Question

Информатика

Антонин

29 июля, 23:17

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

+2

Ответы (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.

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