PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача397' : Uses zadach397.pas; { Составить программу вычисления N элементов ряда y=85-80+75-70+... ... }
  •  'Задача398' : Uses zadach398.pas; { Напечатать сумму элементов кратных одновременно двум и трем числового ряда 3,6,9,2,12,2,24 ... }
  •  'Задача399' : Uses zadach399.pas; { Программа нахождения суммы четных чисел ... }
  •  'Задача4' : Uses zadach4.pas; { Вычислить L = [S(x2 + 2x – 2)]1/2 – 4S2(x) + 11, где S(t) = t + sin3t – 0, 5. Для вычисления функции использовать одно-строковую внутреннюю функцию. ... }
  •  'Задача40' : Uses zadach40.pas; { Составить программу вычисления суммы окладов 5 рабочих ... }
  •  'Задача400' : Uses zadach400.pas; { Дан набор стройматериалов, каждый из которых характеризуется типом(перекрытие, балка, панель, опора), материалом (бетон, дерево, кирпич, камень) и ценой в рублях. Найти о ... }
  •  'Задача401' : Uses zadach401.pas; { Даны два натуральных числа А и В. Если А делится нацело на В или В делится нацело на А, то вывести на экран 1 (единицу), а иначе вывести любое другое число (условный опер ... }
  •  'Задача402' : Uses zadach402.pas; { Дано натуральное число N, которое вводится с клавиатуры. Получить новое натуральноечисло, заменив все четные цифры исходного числа числом K (К – вводится с клавиатуры). ... }
  •  'Задача403' : Uses zadach403.pas; { На день вашего рождения тётя положила на ваш счёт 1000 р.. Каждый год к вкладу добавляется s процентов годовых. Составить программу, которая вычисляет через сколько лет б ... }
  •  'Задача404' : Uses zadach404.pas; { Найти максимальное значение из отрицательных элементов массива ... }
  •  'Задача405' : Uses zadach405.pas; { Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкрет ... }
  •  'Задача406' : Uses zadach406.pas; { Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вар ... }
  •  'Задача407' : Uses zadach407.pas; { В заданном номере телефона увеличить 4ю цифру на "1" и вывести результат.( если 4я цифра равна 9,то заменить ее на "0").Телефон вводить в виде 3цифры,тире,2цифры,тире,2ци ... }
  •  'Задача408' : Uses zadach408.pas; { Даны 2 числа d-день и m-месяц. Определить предыдущую дату. ... }
  •  'Задача409' : Uses zadach409.pas; { Написать программу, запрашивающая длину сторон треугольника и после ввода их сообщает: существует треугольник с такими сторонами или нет. Предусмотреть защиту от ввода от ... }
  •  'Задача41' : Uses zadach41.pas; { Опишите на русском языке или одном из языков программирования алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, ... }
  •  'Задача410' : Uses zadach410.pas; { Ррешить уравнение: Y=lnx^3+2cos-2. Начальный по Х=1, конечный Х=5, шаг по Х=0,4 ... }
  •  'Задача411' : Uses zadach411.pas; { Вычислить: 1*2+2*3*4+…+n*(n+1)*…*(2*n), n-натуральное число ... }
  •  'Задача412' : Uses zadach412.pas; { Написать программу, вычисляющую по известным значениям высоты дома, ускорения свободного падения и начальной скорости и массы кирпича время его падения с крыши. ... }
  •  'Задача413' : Uses zadach413.pas; { Найти сумму всех простых чисел (от 10 до 99) ... }
  •  'Задача414' : Uses zadach414.pas; { Составить программу вычисления степени числа A с натуральным показателем N, не используя знак "^". ... }
  •  'Задача415' : Uses zadach415.pas; { Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление пло ... }
  •  'Задача416' : Uses zadach416.pas; { Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13 ... }
  •  'Задача418' : Uses zadach418.pas; { Дано целое число а. Определите количество цифр этого числа. ... }
  •  'Задача419' : Uses zadach419.pas; { Составить программу для нахождения значения выражения: y=(a*x^2+b)/(4-3*c), если a=2, b=4, c=6, x-любое число. ... }
  •  'Задача42' : Uses zadach42.pas; { Составить программу подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов. ... }
  •  'Задача420' : Uses zadach420.pas; { Допустим, вы получили наследство $1000000 и хотите красиво пожить. После долг их раздумий вы решаете, что будете жить на $800 в месяц. На сколько лет вам хватит наследств ... }
  •  'Задача421' : Uses zadach421.pas; { Составить программу сокращающую обыкновенные дроби входные данные: два целых числа - числитель и знаменатель дроби. выходные данные: два целых числа - числитель и знаме ... }
  •  'Задача422' : Uses zadach422.pas; { Вычислить и напечатать значение заданной функции: y=(cosa+sinb)/a+ln(ab),a=0.87sin2b,b=1.634 ... }
  •  'Задача423' : Uses zadach423.pas; { Найти площадь трапеции, в которой одно основание больше другого на 3 см, а высота в 1,5 меньше большего основания. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic