PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача87' : Uses zadach87.pas; { В простую переменную последовательно вводятся N чисел. Сколько чисел больших своих соседей слева? ... }
  •  'Задача88' : Uses zadach88.pas; { В простую переменную последовательно вводятся числа. Окончание ввода - 0. Определить, сколько чисел больше своих соседей слева и справа. ... }
  •  'Задача89' : Uses zadach89.pas; { В простую переменную последовательно вводится N чисел, отличных от нуля. Положительные или отрицательные числа завершают последовательность и сколько их? ... }
  •  'Задача9' : Uses zadach9.pas; { ... }
  •  'Задача90' : Uses zadach90.pas; { Вводится положительное целое число A < 10000.Определить сумму его цифр S и разность A-S. ... }
  •  'Задача91' : Uses zadach91.pas; { Вводится положительное целое число B < 10000. Является ли оно палиндромом? Массивы не использовать. ... }
  •  'Задача92' : Uses zadach92.pas; { Диапазон положительных чисел задан нижней и верхней границами. Распечатать все простые числа, лежащие в указанном диапазоне. ... }
  •  'Задача93' : Uses zadach93.pas; { Для произвольного значения аргумента "x" (по модулю больше 1) вычислить сумму: S = 1 + 1/x + 1/x^2 + 1/x^3 + ... + 1/x^k. ... }
  •  'Задача94' : Uses zadach94.pas; { Для произвольного значения аргумента "x" (по модулю больше 1) вычислить сумму: S = 1 + 1/x + 1/x^2 + 1/x^3 + ... . Вычисления продолжать до тех пор, пока очередное слагае ... }
  •  'Задача95' : Uses zadach95.pas; { Вычислить сумму членов ряда. Суммировать до тех пор, пока разность между текущей и предыдущей суммами больше 0.001. Вывести сумму, последнее слагаемое, вошедшее в сумму, ... }
  •  'Задача96' : Uses zadach96.pas; { Составить программу вычисления приближенного значения суммы элементов ряда S = 1 - x/1! + x^3/3! - x^5/5! + ... для произвольного значения аргумента "x" (по модулю меньше ... }
  •  'Задача97' : Uses zadach97.pas; { Дан одномерный массив из N элементов. Посчитать среднее арифметическое элементов, кратных трем. ... }
  •  'Задача98' : Uses zadach98.pas; { Определить в двумерном массиве максимальный элемент и его координаты, считая, что он единственный. ... }
  •  'Задача99' : Uses zadach99.pas; { Проверить, есть ли в целочисленном трехмерном массиве элемент с заданным значением. ... }
  •  'Конфетти' : Uses confeti.pas; { Конфетти ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic