Сторона квадрата А, радиус круга R. Можно ли круг вписать в квадрат? решение записать в Pascal Abc

Question

Информатика

Петринка

6 июня, 08:19

Сторона квадрата А, радиус круга R. Можно ли круг вписать в квадрат? решение записать в Pascal Abc

+2

Ответы (1)

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

Юльич · Answer 1

Program proga;

var a, r: integer;

begin

write ('Сторона квадрата:') ;

readln (a) ;

write ('Радиус окружности: ') ;

readln (r) ;

if a=2*r then

writeln ('Можно')

else

writeln ('Нельзя') ;

end.