Написать программу на языке Paskal Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверить при а) D=70, A=36 б) D=8, A=64 Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Результат вывести на экран.
Написать программу на языке Paskal Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверить при а) D=70, A=36 б) D=8, A=64 Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Результат вывести на экран.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
D, A: integer;
begin
D := 70;
A := 36;
if D <= A then
writeln('Круг поместится в квадрате')
else
writeln('Круг не поместится в квадрате');
D := 8;
A := 64;
if D <= A then
writeln('Круг поместится в квадрате')
else
writeln('Круг не поместится в квадрате');
end.