Question

написать программу на языке программирования Паскаль которая будет сравнивать 5 чисел между собой и выводить наименьшее​

Answer 1

Код:

program Hello;

var a,b,c,d,e, result : Integer;

function min(a,b : Integer) : Integer;

begin

if(a > b) then min := b else min := a;

end;

begin

a := 1;

b := 2;

c := 3;

d := 4;

e := 5;

result := min(min(min(a,b), min(c,d)), e);

writeln(result);

end.

Answer 2

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

pascalCopy code
program Наименьшее_число;

var
  number1, number2, number3, number4, number5, smallest: integer;

begin
  writeln('Введите пять чисел:');
  readln(number1);
  readln(number2);
  readln(number3);
  readln(number4);
  readln(number5);

  smallest := number1;

  if number2 < smallest then
    smallest := number2;

  if number3 < smallest then
    smallest := number3;

  if number4 < smallest then
    smallest := number4;

  if number5 < smallest then
    smallest := number5;

  writeln('Наименьшее число: ', smallest);
end.

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

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