Question

домашнє завдання допоможіть

Answer 1

Ответ:

1. var a, r: real;

begin

Readln (r, a);

If 2*r*r>=a*a then

Writeln ('YES')

Else

Writeln ('NO');

End.

Объяснение: