{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! } Case User Of
'Задача 478' : Uses zadach478.pas; { Вычислить массу стальной заготовки длиной А,
шириной В и высотой Н. ... }
'Задача 479' : Uses zadach479.pas; { Составить программу для вычисления площади листовой за - готовки в виде круга , если ее радиус изменяется от 50 до 70 мм с ша - гом 5 мм. При реализации ... }
'Задача 48' : Uses busiki47.pas; { Имеются бусы, состоящие из N бусинок, некотрые из которых красного или
голубого цвета, а остальные - белые. Конфигурация бус задается
последовательностью цветов бусинок(" ... }
'Задача 480' : Uses zadach480.pas; { Составить программу для вычисления среднеарифметическо-
го размера деталей в партии ... }
'Задача 481' : Uses zadach481.pas; { Предприятие выпускает металлопрокат из четырех различных материалов с плотностью 7,0; 7,2; 7,4; 7,6 г/см3 диаметром 10, 20, 30 и 40 мм. Со- ставить программу для расчет ... }
'Задача 482' : Uses zadach482.pas; { Составить программу для вычисления у каждого рабочего на участке из 50 человек средней зарплаты за 3 месяца. ... }
'Задача 483' : Uses zadach483.pas; { Составить программу, позволяющую выбирать одинаковые по названию детали из двух партий. ... }
'Задача 484' : Uses zadach484.pas; { Составить программу для вычисления массы стальной заго-
товки в форме параллелепипеда при помощи процедуры. ... }
'Задача 485' : Uses zadach485.pas; { Написать программу определения количества
билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна
сумме 3 последних десятичных цифр. ... }
'Задача 486' : Uses zadach486.pas; { Пусть D - заштрихованная часть плоскости (верхний полукруг радиуса 0.6 с центром в точке O, из которого вырезана правая верхняя четверть круга с тем же центром радиуса 0. ... }
'Задача 487' : Uses zadach487.pas; { Дано натуральное число N. Вычислить
произведение первых N сомножителей.
(2/1)*(2/3)*(4/3)*(4/5)/…. ... }
'Задача 488' : Uses zadach488.pas; { Даны действительные числа x[1], x[2],...,
x[17]. Найти сумму значений | x[i] - x[j] | при условии, что 1 <= i < j
<= 17. ... }
'Задача 489' : Uses zadach489.pas; { Написать программу для решения уравнения xy+x+y=1000 в целых числах. ... }
'Задача 49' : Uses zadach49.pas; { Проверка знания таблицы умножения. Программа должна вывести 10 примеров и выставить оценку: за 10 правильных ответов — "отлично", за 9 и 8 —"хорошо", за 7 и 6 — "удовлетв ... }
'Задача 490' : Uses zadach490.pas; { m и n - натуральные числа, m<=n. Найти среднее арифметическое чисел a[1],... , a[m-1], a[m+1],... , a[n] (всех, кроме a[m]). ... }
'Задача 491' : Uses zadach491.pas; { n - натуральное, a[1], a[2],..., a[n] - целые. Заменить все большие 7 члены последовательности числом 7. Найти количество таких членов. ... }
'Задача 492' : Uses zadach492.pas; { В таблице a[1:100] записаны нули и единицы. Заменить 0 на 1, а 1 на 0. ... }
'Задача 493' : Uses zadach493.pas; { Даны вещественные числа a[1],..., a[n]. Известно, что среди них есть отрицательные. Пусть первый среди отрицательных членов имеет номер a[k+1]. Вычислить a[1] + +2*a[2]+ ... }
'Задача 494' : Uses zadach494.pas; { На избирательном участке в списке из 100 избирателей указываются фамилия и название улицы, на которой проживает избиратель. Определить, сколько избирателей живет на улице ... }
'Задача 495' : Uses zadach495.pas; { Написать программу, которая по заданным трем числам определяет, является ли сумма каких-нибудь двух из них положительной. ... }
'Задача 496' : Uses zadach496.pas; { Написать программу, которая находит и выводит на печать все четырехзначные числа abcd, для которых выполняются следующие условия:
1) a, b, c, d - разные цифры
2) ab-cd= ... }
'Задача 497' : Uses zadach497.pas; { Написать программу, которая находит и выводит на печать все четырехзначные числа abcd, для которых выполняются следующие условия:
1) a, b, c, d - разные цифры
__ __ ... }
'Задача 498' : Uses zadach498.pas; { Сообщество роботов живет по следующим законам: - один раз в начале года они объединяются в группы по три или пять роботов;
- за год группа из 3 роботов собирает 5 новы ... }
'Задача 499' : Uses zadach499.pas; { Опросили 20 подписчиков. Каждый из них назвал 3 любимые газеты. Напечатать пронумерованный список первых 10 наиболее популярных газет, расположив названия газет в списке ... }
'Задача 5' : Uses paszad05.pas; { Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна а и высота б. Рулон обоев имеет длину 12 м и ширину 1 м. Сколько будут стоить обои для всей ... }
'Задача 50' : Uses zadach50.pas; { Дан массив P(N), состоящий из N вещественных чисел. Определить сколько раз встречается число 7.13 среди элементов массива. ... }
'Задача 500' : Uses zadach500.pas; { Каждая из N библиотек района составляет заявку на приобретение книг. Заявка содержит перечень книг, состоящий из не более 20 наименований. Каждая библиотека в каждой стро ... }
'Задача 501' : Uses zadach501.pas; { Задана матрица размерностью 8*8. Аналогично шахматной доске заполнить в заданной матрице белый поля - 0, черные - 1. ... }
'Задача 501' : Uses zadach501.pas; { Hапечатать все перестановки чисел 1..N ... }
'Задача 503' : Uses zadach503.pas; { На плоскости координатами своих вершин задан треугольник. Определить, к какому типу он принадлежит (остро- , тупо- или прямоугольный) ... }