Question

через паскаль 1 ввести 3 числа,вывести наименьшее 2 ввести номер месяца ,вывести название месяца 3 ввести 5 чисел,вывести в порядке убывания

Answer 1

program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.

Answer 2

Конечно, могу помочь с написанием программы на языке программирования Pascal, которая будет выполнять три задачи:

1. Ввод трех чисел и вывод наименьшего из них. 2. Ввод номера месяца и вывод названия месяца. 3. Ввод пяти чисел и вывод их в порядке убывания.

Ниже представлен пример кода на Pascal, выполняющий данные задачи:

program Tasks;

uses
  SysUtils;

var
  num1, num2, num3, smallest, monthNum, i, j, temp: Integer;
  monthName: String;
  numbers: array[1..5] of Integer;

// Функция для нахождения наименьшего числа из трех введенных
function FindSmallest(a, b, c: Integer): Integer;
begin
  if (a <= b) and (a <= c) then
    FindSmallest := a
  else if (b <= a) and (b <= c) then
    FindSmallest := b
  else
    FindSmallest := c;
end;

// Функция для вывода названия месяца по его номеру
function GetMonthName(month: Integer): String;
const
  months: array[1..12] of String = ('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь',
                                    'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
begin
  if (month >= 1) and (month <= 12) then
    GetMonthName := months[month]
  else
    GetMonthName := 'Неверный номер месяца';
end;

begin
  // Ввод трех чисел и нахождение наименьшего
  WriteLn('Введите три числа:');
  ReadLn(num1, num2, num3);
  smallest := FindSmallest(num1, num2, num3);
  WriteLn('Наименьшее число: ', smallest);

// Ввод номера месяца и вывод его названия
  WriteLn('Введите номер месяца (от 1 до 12):');
  ReadLn(monthNum);
  monthName := GetMonthName(monthNum);
  WriteLn('Название месяца: ', monthName);

// Ввод пяти чисел и их сортировка в порядке убывания
  WriteLn('Введите пять чисел:');
  for i := 1 to 5 do
    ReadLn(numbers[i]);

// Сортировка в порядке убывания (метод пузырька)
  for i := 1 to 4 do
    for j := 1 to 5 - i do
      if numbers[j] < numbers[j + 1] then
      begin
        temp := numbers[j];
        numbers[j] := numbers[j + 1];
        numbers[j + 1] := temp;
      end;

WriteLn('Числа в порядке убывания:');
  for i := 1 to 5 do
    Write(numbers[i], ' ');

ReadLn;
end.

Этот код выполнит следующие шаги:

1. Попросит пользователя ввести три числа и выведет наименьшее из них. 2. Запросит номер месяца и выведет его название. 3. Попросит ввести пять чисел, затем отсортирует их в порядке убывания и выведет отсортированный список.

Примечание: Чтобы выполнить этот код, вам потребуется среда разработки Pascal (например, Lazarus) или онлайн компилятор для Pascal.