Question

Пожалуйста напишите программы на Паскаль Ввести 4 числа . Если разность 2 и 3 числа равна 5 ,то найти сумму 1 и 4 числа

Answer 1

Программа:

var a,b,c,d: integer;

begin

readln(a,b,c,d);

if b-c=5 then writeln(a+d);

end.

Пример:

2 8 3 5

7

Answer 2

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

pascalCopy code
program CalculateSum;

var
  num1, num2, num3, num4: integer;
  diff: integer;
  sum: integer;

begin
  // Ввод 4 чисел
  write('Введите первое число: ');
  readln(num1);

  write('Введите второе число: ');
  readln(num2);

  write('Введите третье число: ');
  readln(num3);

  write('Введите четвертое число: ');
  readln(num4);

  // Проверка условия: разность 2 и 3 числа равна 5
  diff := num2 - num3;
  if diff = 5 then
  begin
    // Если условие выполняется, вычисляем сумму 1 и 4 числа
    sum := num1 + num4;
    writeln('Сумма первого и четвертого числа: ', sum);
  end
  else
  begin
    writeln('Разность второго и третьего числа не равна 5. Условие не выполняется.');
  end;

  readln;
end.

Программа запрашивает у пользователя ввод четырех чисел, затем проверяет условие: разность второго и третьего числа равна 5. Если условие выполняется, программа вычисляет и выводит сумму первого и четвертого числа. Если условие не выполняется, программа выводит сообщение об этом.