// вот тебе первая у меня 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
Поделитесь своими знаниями, ответьте на вопрос:
Втечение недели фиксируйте в таблице то, как вы распоряжаетесь своим свободным временем: сколько времени посвящаете чтению книг, сколько просмотру телепередач, сколько – общению с друзьями и т.д. день недели дата чтение просмотр телепередач компьютерные игры активные игры общение, прогулки другое итого за неделю среднее за неделю
день недели понедельник
дата 04.3.13
чтение 2
просмотр телепередач 4
компьютерные игры 0
активные игры 0
общение, прогулки 0
другое 1
день недели вторник
дата 05.3.13
чтение 1
просмотр телепередач 4
компьютерные игры 1
активные игры 0
общение, прогулки 1
другое 1
день недели среда
дата 06.3.13
чтение 2
просмотр телепередач 2
компьютерные игры 1
активные игры 0
общение, прогулки 2
другое 2
день недели четверг
дата 07.3.13
чтение 1
просмотр телепередач 1
компьютерные игры 3
активные игры 0
общение, прогулки 1
другое 1
день недели пятница
дата 08.3.13
чтение 2
просмотр телепередач 1
компьютерные игры 0
активные игры 0
общение, прогулки 4
другое 1
день недели суббота
дата 09.3.13
чтение 3
просмотр телепередач 1
компьютерные игры 0
активные игры 0
общение, прогулки 2
другое 3
день недели воскресенье
дата 10.3.13
чтение 1
просмотр телепередач 1
компьютерные игры 2
активные игры 1
общение, прогулки 2
другое 2
итого за неделю: 57
среднее: 7