PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 155' : Uses zadach155.pas; { Составить программу, создающую из файла копию, но записаную задом наперёд. ... }
  •  'Задача 156' : Uses zadach156.pas; { Составить программу, удаляющую в файле текст после первой точки ... }
  •  'Задача 157' : Uses zadach157.pas; { Найти остаток от деления числа, записываемого с помощью k семёрок, на число а (k и a -заданые натуральные числа ... }
  •  'Задача 158' : Uses zadach158.pas; { Дан массив А(N) и число М. Найти такое множество элементов A(i1), A(i2),...A(ik) (1<=i1<... ... }
  •  'Задача 159' : Uses zadacg159.pas; { Получить все способы расстановки шести книг разных авторов. ... }
  •  'Задача 16' : Uses shary16.pas; { Определить суммарный объём в литрах 12 вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннеого шара равен 10см. Принять что шары вкладываю ... }
  •  'Задача 160' : Uses zadach160.pas; { Для участия в конкурсе из класса в 20 человек требуется выбрать троих. Сколькими способами это можно сделать. ... }
  •  'Задача 161' : Uses zadach161.pas; { Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.} ... }
  •  'Задача 162' : Uses zadach162.pas; { Дано предл. t заменить в нем слово 'потоп' словом 'потопкот' ... }
  •  'Задача 163' : Uses zadach163.pas; { Дан текст опред.в нем кол. слов 'кот' ... }
  •  'Задача 164' : Uses zadach164.pas; { Дано натуральное число N. Вычислить N!!, определяемое как произведение чётных чисел от 2 до N, если N чётно, либо как произведение нечётных чисел от 1 до N, если N нечётн ... }
  •  'Задача 165' : Uses zadach165.pas; { Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку ... }
  •  'Задача 166' : Uses zadach166.pas; { Вычислить суммы элементов, стоящих выше главных диагоналей матриц A(n, n) и B(m, m). ... }
  •  'Задача 167' : Uses zadach167.pas; { В строке слова отделены пробелами, поменять местами самое длинное и самое короткое слово ... }
  •  'Задача 168' : Uses zadach168.pas; { Заданные векторы Х(N) и Y(N) преобразовать по правилу: большее из Xi и Yi принять в качестве нового значения Xi, а меньшее - в качестве нового значени Yi. ... }
  •  'Задача 169' : Uses zadach169.pas; { В заданном массиве X(N) заменить нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте ( первой по порядку, если их несколько). ... }
  •  'Задача 17' : Uses vershina17.pas; { Определить координаты вершины параболы y=ax2(x в квадрате)+bx+c(a≠0), коэффициенты a, b, c считать известными. ... }
  •  'Задача 170' : Uses zadach170.pas; { Взаданном массиве A(N) определить количество элементов, которые меньше заданного значения. ... }
  •  'Задача 171' : Uses zadach171.pas; { ... }
  •  'Задача 172' : Uses zadach172.pas; { Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива A: bi = (a1+a2+...+ai) / i ... }
  •  'Задача 173' : Uses zadach173.pas; { Записать подряд в массив A(N) элементы заданного массива B(2N), стоящие на четных местах, а элементы, стоящие на нечетных местах, записать в массив C(N). ... }
  •  'Задача 174' : Uses zadach174.pas; { Вывести на экран номера элементов заданного массива Y(N), удовлетворяющих условию 0 ... }
  •  'Задача 175' : Uses zadach175.pas; { Вводится строка с количеством слов от 1 до 10. Слова разделены зяпятой и пробелом, в конце строки - точка. Удалить повторные вхождения слов и вывести 2ой строкой. ... }
  •  'Задача 176' : Uses zadach176.pas; { Вводится строка с количеством слов от 1 до 10. В каждом из них от 1 до 5 строчных букв. Слова разделены запятой и пробелом, в конце строки - точка. 1)На всё это нужна про ... }
  •  'Задача 177' : Uses zadach177.pas; { В старо японском календаре был принят 60-летний цикл. Годы имели следующие цвета: Зелёный, Красный, Жёлтый, Белый, Чёрный. Годы носили названия животных: крысы, коровы, т ... }
  •  'Задача 178' : Uses zadach178.pas; { Решение системы линейных уравнений матричным методом. ... }
  •  'Задача 179' : Uses zadach179.pas; { Даны натуральное число n, символ s1...sn. Подсчитать общее число вхождений символов "+", "-", "*" в последовательность s1.....sn. ... }
  •  'Задача 18' : Uses zadach18.pas; { Составить программу поиска трёхзначных чисел, которые при делении на 47 дают в остатке 43, а при делении на 43 дают в остатке 47 ... }
  •  'Задача 180' : Uses zadach180.pas; { Слова в строке отделены пробелами. Подсчитать количество слов, в которых буква "а" встречается ровно 3 раза. ... }
  •  'Задача 181' : Uses zadach181.pas; { Даны натуральное число n, действительные числа а1,..., аn. Вычислить обратную величину произведения тех членов ai последова- тельности а1,.. ., аn, для которых выполнено ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..