Написать программу, которая записывает в файл все слова, начинающиеся с задаваемой с клавиатуры буквы из исходного текстового файла. словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки. если исходный файл не содержит подходящих слов, то оставить результирующий файл пустым.

Исполнитель калькулятор. 1.степень(число,степень) 2.корень(число,степень) 3.сложение(число,число2) 4.умножение(число,число2) 5.деление(число,число2) 6.вычитание(число,число2) 7.вывод(алг)-выводит результат алгоритма 8.если(условие) 9.скобка1 скобка2-для содержания операторов в условии начало конец - для содержания всего алгоритма 10.ошибка - сообщает об ошибке и прекращает выполнение алгоритма 11.ввод(x)-считывает числа, введённые пользователем пример: найти квадратный  корень из числа 9 начало корень(9,2) вывод(алг) конец пример: разделить 7 на x начало ввод(x); если(x=0) скобка1 ошибка скобка2 деление(7,x) вывод(алг) конец пример: возвести х в степень у начало ввод(х,у) степень(х,у) вывод(алг) конец калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.

№1 cls dim a(20), b(20) data -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6 for i = 1 to 8 read a(i) print i, a(i) next i print "" for i = 1 to 8 b(i) = a(i) * 5 print i, b(i) next i print "" for i = 1 to 8 print i, a(i) * b(i) next i print "" i = 5 print i, a(i) i = 1 print i, b(i)   №2 cls input "vvod a"; a c1 = int(a / 1000) a = a - 1000 * c1 c2 = int(a / 100) a = a - 100 * c2 c3 = int(a / 10) c4 = a - 10 * c3 s$ = "no" if c1 = c2 then s$ = "es" if c1 = c3 then s$ = "es" if c1 = c4 then s$ = "es" if c2 = c3 then s$ = "es" if c2 = c4 then s$ = "es" if c3 = c4 then s$ = "es" print s$, c1, c2, c3, c4