Question

Напишите программу в Pascal, которая выводит наименьшую из четырех величин a,b,c,d.

Answer 1

programm Z1;

var a, b, c,d:integer;

begin

writeln ('Введите четыре числа');

readln (a, b, c, d);

If a>b, a>c, a>d then

e:=a;

If b>a, b>c,b>d then

e:=b;

If c>a, c>b, c>d then

e:=c;

If d>a,d>b, d>c then

e:=d;

writeln ('Наибольшое число -',e);

end.

Answer 2

Вот пример программы на языке Pascal, которая выводит наименьшую из четырех величин a, b, c, d:

program FindMinimum;
var
  a, b, c, d, minimum: integer;
begin
  writeln('Введите значения a, b, c и d:');
  readln(a, b, c, d);
  
  minimum := a; // Предполагаем, что a - наименьшее значение
  
  if b < minimum then
    minimum := b;
  if c < minimum then
    minimum := c;
  if d < minimum then
    minimum := d;
  
  writeln('Наименьшее значение: ', minimum);
end.

В этой программе мы сначала запрашиваем у пользователя значения a, b, c и d. Затем мы сравниваем каждое из этих значений с текущим наименьшим значением и обновляем наименьшее значение, если находим меньшее число. В конце программы выводится наименьшее значение.

Примечание: В приведенном примере используется тип данных `integer` для переменных a, b, c, d и minimum. Если вам нужно работать с числами с плавающей запятой, вы можете использовать тип данных `real` или `double`.