• 1)ИЗ СЛОВА АЛГОРИТМИЗАЦИЯ СОСТАВИТЬ СЛОВА: АЛГОРИТМ,РИТМ,ГОРА,РАЦИЯ,ЗИМА
    2)ОПРЕДЕЛИТЬ САМОЕ ДЛИННОЕ ИЗ ТРЁХ ВВЕДЕННЫХ СЛОВ
    ПРОГРАММА QBASIC

Ответы 1

  • // Вот тебе первая задача у меня QBasic  не хочет с русскими буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia

     

     

    CLSLET a$ = "ALGORITMIZACIA"PRINT a$PRINT (LEFT$(a$, 8))PRINT (MID$(a$, 5, 4))PRINT (MID$(a$, 3, 3)) + (MID$(a$, 11, 1))PRINT (MID$(a$, 5, 1)) + (RIGHT$(a$, 4))PRINT (MID$(a$, 10, 1)) + (MID$(a$, 9, 1)) + (MID$(a$, 8, 1)) + (MID$(a$, 1, 1))END

     

    // Вторая задача

    CLSPRINT "vvedite 1 slovo "INPUT a$PRINT "vvedite 2 slovo "INPUT b$PRINT "vvedite 3 slovo "INPUT c$x = LEN(a$)y = LEN(b$)z = LEN(c$)IF (x > y) AND (x > z) THEN PRINT " Pervoe slovo samoe dlinnoe"IF (y > x) AND (y > z) THEN PRINT "Vtoroe slovo samoe dlinnoe"IF (z > x) AND (z > y) THEN PRINT "Tretie slovo samoe dlinnoe"END

     

     

     

     

     

     

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years