PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача146' : Uses zadach146.pas; { Известен объём ипотечного кредита, взятого на приобретение квартиры, и неизменный годовой процент по кредиту – 15%. На сколько больше объёма кредита будет сумма, выплачен ... }
  •  'Задача147' : Uses zadach147.pas; { Найдите сумму двух векторов, заданных своими координатами. ... }
  •  'Задача148' : Uses zadach148.pas; { Ввести с клавиатуры 16 чисел, определить количество чисел равных -29; +29 и равных 0 ... }
  •  'Задача149' : Uses zadach149.pas; { Вычислить число PI через ряд Лейбница, с точностью до 7 знаков после запятой ... }
  •  'Задача15' : Uses zadach15.pas; { Вычислить значение суммы членов бесконечного ряда с заданной точностью ε. ... }
  •  'Задача150' : Uses zadach150.pas; { Дано натуральное число: а) Найти произведение цифр числа; b) верно ли, что в данном числе нет данной цифры А ... }
  •  'Задача151' : Uses zadach151.pas; { Вычислить сумму чисел кратных A на интервале от W до Q включительно ... }
  •  'Задача152' : Uses zadach152.pas; { У= ... }
  •  'Задача153' : Uses zadach153.pas; { Проверить равенство! 1^3 + 3^3 + 5^3 +...+ (2n - 1)^3 = n^2 (2n^2 - 1) ... }
  •  'Задача154' : Uses zadach154.pas; { Нормировать вектор A = {A1,..., An} и найти его длину. формула Вектор A^0 = { A1/модуль вектора А, ... , An/ модуль вектора А} ... }
  •  'Задача155' : Uses zadach155.pas; { Задана квадратная матрица. переставить главную и побочную диогонали. ... }
  •  'Задача156' : Uses zadach156.pas; { Найти значение Y при x=4 Y= ... }
  •  'Задача157' : Uses zadach157.pas; { Решить уравнение вида ax+b=0, т.е. если а ≠0, то x= , если а=0 и b=0, то x – любое действительное число, т.е. решений бесконечно много, если а=0 и b≠0, ... }
  •  'Задача158' : Uses zadach158.pas; { Посчитать число счастливых билетов в катушке автобусных билетов с номерами от 000 000 до 999 999. Счастливым считается билет, у которого сумма первых трех цифр равна с ... }
  •  'Задача159' : Uses zadach159.pas; { ... }
  •  'Задача16' : Uses zadach16.pas; { Вычислить среднее геометрическое элементов массива Y. условия и ограничения: Y(20) - массив, yi>0 ... }
  •  'Задача160' : Uses zadach160.pas; { ... }
  •  'Задача161' : Uses zadach161.pas; { ... }
  •  'Задача162' : Uses zadach162.pas; { Найти произведение членов последовательности на примере факториала i!=1*2*3*4*…*(i-1)*i ... }
  •  'Задача163' : Uses zadach163.pas; { ... }
  •  'Задача164' : Uses zadach164.pas; { ... }
  •  'Задача165' : Uses zadach165.pas; { ... }
  •  'Задача166' : Uses zadach166.pas; { ... }
  •  'Задача167' : Uses zadach167.pas; { ... }
  •  'Задача168' : Uses zadach168.pas; { ... }
  •  'Задача169' : Uses zadach169.pas; { По предложенному функциональному ряду написать программу, которая выполняет суммирование до тех пор, пока очередное слагаемое не станет по абсолютной величине меньше зада ... }
  •  'Задача17' : Uses zadach17.pas; { Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Матрицу отпечатать в общепр ... }
  •  'Задача170' : Uses zadach170.pas; { ... }
  •  'Задача171' : Uses zadach171.pas; { Разработать программу нахождения и вывода на экран всех чисел, оканчивающихся на 5, и делящихся на 3, из диапазона чисел от 5 до 1000. ... }
  •  'Задача172' : Uses zadach172.pas; { Ввести число Х, если оно меньше нуля умножить его на (-1) и вывести Х на экран. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic