Имеется прямоугольная поверхность размером А на В. в каком случае на поверхности можно разместить большее количество картонных прямоугольников с размерами C на D: при размещении их длинной стороной вдоль длинной или вдоль короткой стороны поверхности — QBasic(Бейсик)

PRINT "vvedite razmery poverhnosti:"
INPUT "dlinnaya storona=", a
INPUT "korotkaya storona=", b
PRINT "vvedite razmery pryamougolnika:"
INPUT "dlinnaya storona=", c
INPUT "korotkaya storona=", d
kol1 = (a \ c) * (b \ d)
kol2 = (a \ d) * (b \ c)
IF kol1 > kol2 THEN PRINT "dlinnaya vdol dlinnoy, kol-vo= "; kol1 ELSE PRINT "korotkaya vdol dlinnoy, kol-vo="; kol2

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment