Question

Найти наименьшее, среднее, наибольшее из 3-ех чисел вводимых с клавиатуры, Pascal

Answer 1

Ответ:

var a,b,c,max,min,sred:integer;

begin

read(a,b,c);

if (a>b) and (b>c) then max:=a;sred:=b;min:=c;

if (a>c) and (c>b) then max:=a;sred:=c;min:=b;

if (b>a) and (a>c) then max:=b;sred:=a;min:=c;

if (b>c) and (c>a) then max:=b;sred:=c;min:=a;

if (c>a) and (a>b) then max:=c;sred:=a;min:=b;

if (c>b) and (b>a) then max:=c;sred:=b;min:=a;

Write(max,' ',sred,' ',min);

end.

Объяснение:

Answer 2

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

pascalCopy code
program MinMaxAverage;

var
  num1, num2, num3, smallest, largest, average: real;

begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  writeln('Введите третье число: ');
  readln(num3);

  { Находим наименьшее число }
  smallest := num1;
  if num2 < smallest then
    smallest := num2;
  if num3 < smallest then
    smallest := num3;

  { Находим наибольшее число }
  largest := num1;
  if num2 > largest then
    largest := num2;
  if num3 > largest then
    largest := num3;

  { Находим среднее значение }
  average := (num1 + num2 + num3) / 3;

  writeln('Наименьшее число: ', smallest);
  writeln('Наибольшее число: ', largest);
  writeln('Среднее значение: ', average);

  readln;
end.

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