) Ввести строку. Удалить первое слово. 2) В введенном тексте сочетание “and” заменить на “or”. 3) Ввести строку. Определить количество слов, содержащих букву Z 4) N=15 Определить, каких элементов больше положительных или отрицательных элементов массива 5) В массиве хранятся оценки, выставленные спортсмену судьями. Определить , идущий спортсмену в зачет по олимпийской системе (средний без учета максимального и ми-нимального) . 6) Определить, образуют ли элементы, стоящие на нечетных номерах, убывающую последовательность. 7) Массив хранит оценки экзаменов 10_ти студентов по 5_ти предметам. Организовать заполнение массива случайными значениями от 2 до 5. Определить количество предметов, по которым были получены только оценки «5» и «4». 8) Вывести все элементы массива А (5,5), располагающиеся ниже главной диагонали. 9) Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Определить сумму всех ближайших соседних элементов для MAS[A,B]. 10) Вычислить НОД (A,B,C)+НОД (A,B,C,D), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел. 11) Ввести три числа. Найти сумму первых цифр каждого числа, используя процедуру, которая оставляет только первую цифру числа. Например, даны 12, 520, 231, результат 1+5+2=8 12) Вывести на экран только те строки исходного файла, которые состоят из одного слова. 13) Удалить из файла самую длинную строку (сформировать новый файл) Нравится
Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); End.
наверное аристократ
удачи