Question

Даны три числа a,b,c. Вычислите, на сколько самое большое из них больше самого маленького ( в Паскале)

Answer 1

Ответ:

Код рабочий, проверял

Program Min-Max;

var a,b,c,min,max:integer;  # задаём переменные

begin

write('Введите 3 числа для сравнения (через пробел) : ');read(a,b,c); # ввод данных

min:=a;max:=a;

if b>max then max:=b;if b<min then min:=b;  # сравниваем числа

if c>max then max:=c;if c<min then min:=c;

write(max - min);  # выводим результат

end.

Если ответ помог, отметьте его как лучший.

Answer 2

Для вычисления разницы между самым большим и самым маленьким числами из трех заданных (a, b, c) в языке программирования Pascal можно использовать следующий код:

program FindDifference;
var
  a, b, c, min, max, difference: integer;
begin
  writeln('Введите три числа: ');
  readln(a, b, c);

// Находим минимальное и максимальное из трех чисел
  min := a;
  max := a;

if b < min then
    min := b;
  if b > max then
    max := b;

if c < min then
    min := c;
  if c > max then
    max := c;

// Вычисляем разницу между самым большим и самым маленьким числами
  difference := max - min;

writeln('Разница между самым большим и самым маленьким числами: ', difference);
end.

Этот код сначала считывает три числа (a, b, c) с клавиатуры, затем находит минимальное (min) и максимальное (max) из этих чисел, используя последовательные сравнения. После этого вычисляется разница между самым большим и самым маленьким числами и выводится на экран.

Пример работы программы: ``` Введите три числа: 5 12 8 Разница между самым большим и самым маленьким числами: 7 ```

В этом примере самое большое число - 12, самое маленькое число - 5, и разница между ними равна 7.