Написать программу на языке paskal заданы диаметр - вопрос №21476 от Чай22 03.08.2021 03:32

Question

Информатика: Написать программу на языке paskal заданы диаметр круга d и сторона квадрата а. определить, поместится ли круг в квадрате. проверить при а) d=70, a=36 б) d=8, a=64 квадрат поместится в круге, если диаметр окружности меньше или равенстороне квадрата. результат вывести на экран.

Чай22 · Answer

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.