Написать программу на языке Paskal

Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверить при

а) D=70, A=36

б) D=8, A=64

Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Результат вывести на экран.

Question

Информатика

Майка

15 июня, 17:06

Написать программу на языке Paskal

Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверить при

а) D=70, A=36

б) D=8, A=64

Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Результат вывести на экран.

+3

Ответы (1)

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

Антоха · Answer 1

Program nm12;

Var a, d : integer;

begin

writeln (' Vvedite diametr kruga i storony kvadrata ') ;

readln (d) ;

readln (a) ;

if d<=a then writeln (' Krug pomestits9 v kvadrate ')

else writeln (' Krug ne pomestits9 v kvadrate ') ;

readln;

End.