1) ИЗ СЛОВА АЛГОРИТМИЗАЦИЯ СОСТАВИТЬ СЛОВА: АЛГОРИТМ, РИТМ, ГОРА, РАЦИЯ, ЗИМА2)…

// Вот тебе первая задача у меня 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