2. Написать программу, определившую, поместится ли квадрат в кругу, введя с клавиатуры значения радиуса круга и площади квадрата

Question

Информатика

Витаха

10 ноября, 04:57

2. Написать программу, определившую, поместится ли квадрат в кругу, введя с клавиатуры значения радиуса круга и площади квадрата

+5

Ответы (1)

Знаете ответ на вопрос?

Натуня · Answer 1

Var

S1, S2, D, A, diag:real;

Begin

Writeln ('Ведите площадь круга') ;

Readln (S1) ;

Writeln ('Ведите площадь квадрата') ;

Readln (S2) ;

D:=2*sqrt (S1/3.14) ;

A:=sqrt (s2) ;

diag:=sqrt (2*A*A) ;

if diag<=D then writeln ('YES')

else writeln ('NO') ;

end.