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

Question

Информатика

Жозефина

13 июня, 16:13

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

+3

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