Имеется кусок ткани длиной М метров. От него последовательно отрезаются куски разной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани, большей длины, чем имеется. — QBasic(Бейсик)

disel 
1 INPUT "Vvedite M :", M
IF M <= 0 GOTO 1
DO
  INPUT "  Skolko rezat? :", R
  M = M - R
  IF M > 0 THEN PRINT "     otrezano, ostalos "; M
LOOP UNTIL M < 0
PRINT "Nehvataet metrov :"; ABS(M)

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

Похожие записи/страницы:

Leave a Comment