Question

РЕШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ В ПАСКАЛЕ, СРОЧНО НУЖНО!!!!!!! 1. Вводятся число (от 1 до 31) и название месяца. Если введено число 23 и месяц февраль, то вывести текст «Поздравляем с Днём защитника Отечества!», в другом случае вывести текст «Скоро праздник». 2. В двух бочках разное количество воды. Вводится объём воды в литрах. Из какой бочки и сколько воды нужно перелить в другую, чтобы воды в бочках стало поровну? 3. Вводится четырёхзначное число. Сложите первую и четвертую цифры, затем вторую и третью цифры. Выведите на экран полученные суммы. Определите для каждой суммы, чётной или нечётной она получилась. Пример: 1248. 1+8=9 (нечётная). 2+4=6 (чётная). 4. Цена одной единицы товара составляет а рублей. Если купить больше 10 штук, то цена уменьшается и составляет b рублей за штуку. Вводится количество купленного товара. Определить стоимость товара.

Answer 1

Ответ:

Дан во вложениях.

Answer 2

Конечно, вот ваши программы на Pascal:

1. Программа для поздравления с Днём защитника Отечества:

pascalCopy code
program Greetings;
var
  day: integer;
  month: string;
begin
  writeln('Введите число (от 1 до 31): ');
  readln(day);
  writeln('Введите название месяца: ');
  readln(month);

  if (day = 23) and (month = 'февраль') then
    writeln('Поздравляем с Днём защитника Отечества!')
  else
    writeln('Скоро праздник');
end.

2. Программа для переливания воды из бочек:

pascalCopy code
program WaterTransfer;
var
  barrel1, barrel2, transferAmount: real;
begin
  writeln('Введите объём воды в первой бочке (литры): ');
  readln(barrel1);
  writeln('Введите объём воды во второй бочке (литры): ');
  readln(barrel2);

  transferAmount := abs(barrel1 - barrel2) / 2;  // Переливаем половину разницы

  writeln('Необходимо перелить ', transferAmount:0:2, ' литров воды');
end.

3. Программа для сложения цифр и определения их чётности:

pascalCopy code
program DigitSum;
var
  num, firstDigit, secondDigit, sum1, sum2: integer;
begin
  writeln('Введите четырёхзначное число: ');
  readln(num);

  firstDigit := num div 1000;
  secondDigit := (num div 100) mod 10;

  sum1 := firstDigit + (num mod 10);
  sum2 := (num div 10) mod 100 + secondDigit;

  writeln(firstDigit, '+', num mod 10, '=', sum1, ' (', if sum1 mod 2 = 0 then 'чётная' else 'нечётная', ')');
  writeln(secondDigit, '+', (num div 10) mod 100, '=', sum2, ' (', if sum2 mod 2 = 0 then 'чётная' else 'нечётная', ')');
end.

4. Программа для расчёта стоимости товара:

pascalCopy code
program TotalCost;
var
  pricePerUnit, discountedPricePerUnit, quantity, totalCost: real;
begin
  writeln('Введите цену за единицу товара (a рублей): ');
  readln(pricePerUnit);
  writeln('Введите цену за единицу товара при покупке более 10 штук (b рублей): ');
  readln(discountedPricePerUnit);
  writeln('Введите количество купленных товаров: ');
  readln(quantity);

  if quantity > 10 then
    totalCost := discountedPricePerUnit * quantity
  else
    totalCost := pricePerUnit * quantity;

  writeln('Стоимость товара: ', totalCost:0:2, ' рублей');
end.

Скопируйте каждую программу в свой текстовый редактор для Pascal (например, Lazarus или Turbo Pascal) и выполните их там.