PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 585' : Uses zadach585.pas; { Валя и Вера собрались варить варенье из А кг смородины. По рецепту на 2 кг ягод нужно 3 кг сахара. Валя сказала, что им потребуется С кг сахара, а Вера - что Р кг. Кто из ... }
  •  'Задача 586' : Uses zadach586.pas; { Масса 8 литров бензина 5, 68 кг. Цистерна имеет объем 500 м3. Хватит ли ее, чтобы вместить А т бензина? ... }
  •  'Задача 587' : Uses zadach587.pas; { Кусок медного провода длиной 5 м имеет массу 430 г. чтобы провести проводку в квартире требуется С метров. Хватит ли для этой цели мотка провода массой М г? ... }
  •  'Задача 588' : Uses zadach588.pas; { Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. Определить, подойдет ли данный четырехугольный брусок для этого гнезда. ... }
  •  'Задача 589' : Uses zadach589.pas; { Фермер намерен купить корову, дающую не менее L литров молока ежедневно с жирностью не менее K процентов. Написать алгоритм и программу выбора коровы. ... }
  •  'Задача 59' : Uses zadach59.pas; { Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись! ... }
  •  'Задача 6' : Uses z_percent3.pas; { Опытное количество семян в кг., выведенное селекционером, количество кг которое можно получить за сезон с одного кг., площадь поля которое необходимо засеять, га., норма ... }
  •  'Задача 60' : Uses zadach60.pas; { Для заданой матрицы размером 8 на 8найти такие к, что к-ая строка матрицы совпадает с к-ым столбцом. ... }
  •  'Задача 61' : Uses zadach61.pas; { В строке состояцих из слов определить колличество слов, имеющих длинну, равную длинне первого слова (первое слово не учитывается) ... }
  •  'Задача 62' : Uses zadach62.pas; { Данные о направлении ветра (сев, юж, вост, зап) и силе ветра за декаду ноября хранятся в одномерном массиве. Определить сколько дней дул южный ветер с силой превышающей 8 ... }
  •  'Задача 63' : Uses zadach63.pas; { Число n <1.000.000.000 (милиарда) СКОЛЬКО цифр в числе, сумма цифр в числе, четно ли число? ... }
  •  'Задача 64' : Uses zadach64.pas; { Вычислить функцию function : y=arccosx-arccos2x+arccos3x ... }
  •  'Задача 65' : Uses zadach65.pas; { Вычисление стоимости одной поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потр ... }
  •  'Задача 66' : Uses zadach66.pas; { Дана квадратная матрица порядка n(n=5). Если все строки упорядочены по возрастанию, то в вектор x записать элементы столбца, содержащего наименьшее количество положительн ... }
  •  'Задача 67' : Uses zadach67.pas; { Повернуть двумерный массив на 90 градусов по часовой стрелке ... }
  •  'Задача 68' : Uses zadach68.pas; { Задать файл, компоненты которого являются действительными числами. Найти наибольшее из значений компонент этого файла с нечётными номерами. ... }
  •  'Задача 69' : Uses zadach69.pas; { Определить комб тип для представления анкеты школьника, включающей в себя его ФИО, возраст, № школы, № класса, оценки по пяти предметам. Ввести инфу о нескольких учениках ... }
  •  'Задача 7' : Uses z_taxis.pas; { В такси сели три пассажира, когда вышел первый на счетчике была сумма Sum1, когда вышел второй Sum2, когда третий Sum3. Вычислить сколько должен заплатить каждый пассажир ... }
  •  'Задача 70' : Uses zadach70.pas; { Составьте прогу, выдающую письма стандартной формы, адресованные разным людям. От письма к письму должны меняться только фамилия и адрес, поэтому для пнчати писем примени ... }
  •  'Задача 71' : Uses zadach71.pas; { Найти параметр 10тиугольника, координаты вершин которого заданы. Определить процедуру вычисления расстояния между 2мя точками заданными своими координатами, которые перед ... }
  •  'Задача 72' : Uses zadach72.pas; { В массиве Y, состоящем из N элементов, определить количество элементов, значения которых заключены в диапазоне от 1, 3 до 8, 7 (отладить при N=10). ... }
  •  'Задача 73' : Uses zadach73.pas; { Написать функцию на Паскале для проверки наличия в двумерном массиве одинаковых элементов. ... }
  •  'Задача 74' : Uses zadach74.pas; { Под термином "текст" будем понимать ряд символов, длина которых не превышает 255 символов. Под термином "слово" будем понимать последовательность символов, которая не сод ... }
  •  'Задача 75' : Uses zadach75.pas; { Создать текстовый файл, в котором фамилии и даты рождения(число, месяц, год) студентов (в задании все это в табличке изображено). Используя этот файл, вывести на экран фа ... }
  •  'Задача 76' : Uses zadach76.pas; { Составить программу, в которой на экран выводится строка, состоящая из *(звездочка). Количество * является параметром функции, а вывод * осуществляется в функции. ... }
  •  'Задача 77' : Uses zadach77.pas; { Составить программу, которая выводит строку, состоящую из одинаковых символов. Длина и символ, который выводится, являются параметрами процедуры. ... }
  •  'Задача 78' : Uses zadach78.pas; { Дано протстое число, составить функцию которая будет находить следующее за ним простое число ... }
  •  'Задача 79' : Uses zadach79.pas; { Определить имеется ли в последовательности слова, в которых каждая буква входит в него не менее 2 раз ... }
  •  'Задача 8' : Uses z_businessman.pas; { Известно: Стартовый капитал предпринимателя, величина ежемесячного дохода в процентах, цена магазина. Вычислить через сколько лет предприниматель накопит сумму достаточну ... }
  •  'Задача 80' : Uses zadach80.pas; { Даны два Линейных Массива натуральных чисел А(10)иВ(20). Вывести на экран пересечение этих массивов ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..