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

1)ИЗ СЛОВА АЛГОРИТМИЗАЦИЯ СОСТАВИТЬ СЛОВА: АЛГОРИТМ,РИТМ,ГОРА,РАЦИЯ,ЗИМА 2)ОПРЕДЕЛИТЬ САМОЕ ДЛИННОЕ ИЗ ТРЁХ ВВЕДЕННЫХ СЛОВ ПРОГРАММА QBASIC
Гость
Ответ(ы) на вопрос:
Гость
// Вот тебе первая задача у меня QBasic  не хочет с русскими буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia     CLS LET 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   // Вторая задача CLS PRINT "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            
Не нашли ответ?
Ответить на вопрос
Похожие вопросы