PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача34' : Uses zadach34.pas; { Составить программу нахождения суммы четных чисел начиная с 1 до А. ... }
  •  'Задача340' : Uses zadach340.pas; { Вычислить Y =1+(1/x)+(6/x^5) ... }
  •  'Задача341' : Uses zadach341.pas; { Составить программу, с помощью которой можно определить: пройдет ли график функции У=7*Х-10 через заданную точку. ... }
  •  'Задача342' : Uses zadach342.pas; { В памяти эвм хранится информация о валовом сборе зерна по союзным республикам отдельно за 1984 и 1985г.Определить суммарный сбор зерна по каждой республике за 2 года.Зада ... }
  •  'Задача343' : Uses zadach343.pas; { Имеется информация о количестве осадков, выпавших за каждый день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и как ... }
  •  'Задача344' : Uses zadach344.pas; { Даны натуральные числа n, a1, a2,..., an. Определить количество членов ak последовательности a1, a2,...an, имеющих четные порядковые номера и являющихся нечетными числами ... }
  •  'Задача345' : Uses zadach345.pas; { Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d ... }
  •  'Задача346' : Uses zadach346 .pas; { Написать и протестировать функцию, которая преобразует целое без знака в его восьмеричное символьное представление ... }
  •  'Задача347' : Uses zadach347.pas; { Определить есть ли среди младших трех цифр целой части заданного числа s цифра 5. ... }
  •  'Задача348' : Uses zadach348.pas; { Даны координаты двух полей шахматной доски(в виде двух пар чисел от 1 до 8). Оприделить являются ли эти поля полями одного цвета. ... }
  •  'Задача349' : Uses zadach349.pas; { Вычислить расстояние между двумя точками в пространстве с координатами (x1 y1 z1) и (x2 y2 z2) ... }
  •  'Задача35' : Uses zadach35.pas; { Составить программу вычисления произведения ряда чисел 5,10,15,20. ... }
  •  'Задача350' : Uses zadach350.pas; { Определить произведение первой и последней цифр заданного четырёхзначного числа f ... }
  •  'Задача352' : Uses zadach352.pas; { Дано десятичное число K. Найти минимальное основание P системы счисления, в которой исходное число оканчивается (будет младшей) цифрой M. (Например, К=179, M=7, P=43). ... }
  •  'Задача353' : Uses zadach353.pas; { Дано натуральное число,определить сумму m его последних цифр ... }
  •  'Задача354' : Uses zadach354.pas; { Написать программу, которая выводит первую цифру в числе, последнюю цифру в числе, сумму всех цифр числа. ... }
  •  'Задача355' : Uses zadach355.pas; { Задана последовательность целых чисел. Выяснить сумму элементов массива,у которых порядковый номер совпадает со значениями. ... }
  •  'Задача356' : Uses zadach356.pas; { Введите свое полное имя так, чтобы оно было в верхней части в центре строки экрана вразрядку. ... }
  •  'Задача357' : Uses zadach357.pas; { Найти площадь сектора, радиус которого равен 13.5 см, а дуга содержит заданное число радиан . Результат вывести в мм2. ... }
  •  'Задача359' : Uses zadach359 .pas; { Написать программу для нахождения площади полой прямой призмы с трапецией в основании. ... }
  •  'Задача36' : Uses zadach36.pas; { Составить программу вычисления и печати функции y=√sinx+k , для х от 10 до -10 с шагом -0,5. ... }
  •  'Задача360' : Uses zadach360.pas; { Пусть n натуральных чисел заданы своими цифрами в q-ичной системе счисления, хранящимся в строках матрицы K(m,n). Найти сумму этих чисел в той же системе, не вычисляя сам ... }
  •  'Задача361' : Uses zadach361.pas; { Дано n-натуральное число. Сколько раз данная цифра(ы) встречается в данном числе.N и a вводятся с клавиатуры. ... }
  •  'Задача362' : Uses zadach362.pas; { Дано n-натуральное число. Сколько четных цифр в данном числе. N вводится с клавиатуры. ... }
  •  'Задача363' : Uses zadach363.pas; { Дано n-натуральное число. В данном числе все цифры(а) заменить нулем. N и a вводятся с клавиатуры. ... }
  •  'Задача364' : Uses zadach364.pas; { Дано n-натуральное число. Приписать к нему такое же. ... }
  •  'Задача365' : Uses zadach365.pas; { По заданному номеру года определить номер столетия, на которое приходится этот год. ... }
  •  'Задача366' : Uses zadach366.pas; { Дан квадрат со стороной b, точка пересечения диагоналей которого расположена в начале координат. Определить, находится ли точка с координатами (x, y) внутри квадрата. ... }
  •  'Задача367' : Uses zadach367.pas; { Определить, есть ли в заданном четырёхразрядном числе A цифры 3 и 4. ... }
  •  'Задача368' : Uses zadach368.pas; { Десятичное представление заданного натурального числа напечатать вразрядку, то есть вставить пробелы между цифрами. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic