Укажите возможные варианты размена 20 рублей монетами достоинством 2 рубля и 5 рублей — QBasic(Бейсик)

FOR i = 0 TO 20 \ 2
    FOR j = 0 TO 20 \ 5
        IF i * 2 + j * 5 = 20 THEN PRINT i; "monet po 2 rublya i "; j; "monet po 5 rubley"
    NEXT
NEXT

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

Leave a Comment