Вопрос задан 26.10.2026 в 20:43. Предмет Информатика. Спрашивает DELETED.

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

Перейти к ответам

Отвечу на вопрос мгновенно! Нейросеть ChatGPT. Жми!

Ответы на вопрос

Отвечает Биотестирование Европолитест.

1. Найти разность, сумму и произведение двух значений переменных

Условие задачи: Даны две переменные a и b. Необходимо найти их сумму, разность и произведение.

Программа на языке Pascal:

pascal
program Zadacha1;
var
  a, b, sum, raz, proizv: real;
begin
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);

  sum := a + b;
  raz := a - b;
  proizv := a * b;

  writeln('Сумма = ', sum:0:2);
  writeln('Разность = ', raz:0:2);
  writeln('Произведение = ', proizv:0:2);
end.

Объяснение программы:

a, b — переменные для хранения двух введённых чисел.
sum — сумма чисел (a + b).
raz — разность чисел (a - b).
proizv — произведение чисел (a * b).
readln — ввод данных с клавиатуры.
writeln — вывод результатов на экран.
:0:2 — вывод числа с двумя знаками после запятой.

Пример работы программы:

Обычный текст
Введите первое число:
8
Введите второе число:
3
Сумма = 11.00
Разность = 5.00
Произведение = 24.00

2. Ввести два числа. Вычесть из большего меньшее

Условие задачи: Ввести два числа с клавиатуры, определить, какое из них больше, и вычесть из большего числа меньшее.

Программа на языке Pascal:

pascal
program Zadacha2;
var
  a, b, raz: real;
begin
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);

  if a > b then
    raz := a - b
  else
    raz := b - a;

  writeln('Разность = ', raz:0:2);
end.

Объяснение программы:

Объявляем переменные a, b и raz типа real.
Вводим два числа с клавиатуры.
С помощью условного оператора if сравниваем числа.
Если a > b, то из числа a вычитаем число b.
Иначе из числа b вычитаем число a.
Выводим полученную разность на экран.

Пример работы программы № 1:

Обычный текст
Введите первое число:
15
Введите второе число:
7
Разность = 8.00

Пример работы программы № 2:

Обычный текст
Введите первое число:
4
Введите второе число:
12
Разность = 8.00

Пример работы программы № 3 (числа равны):

Обычный текст
Введите первое число:
5
Введите второе число:
5
Разность = 0.00

Вывод: В первой программе используются арифметические операции сложения (+), вычитания (-) и умножения (*). Во второй программе используется условный оператор if ... then ... else, который позволяет определить большее число и правильно выполнить вычитание.