Question

Как в паскале задать программу, которая из трёх чисел выберет наименьшее. Плис помогите приведите пример(числа любые). Заранее благодарен

Answer 1

Var a,b,c:integer;
begin
read(a,b,c);
if (a<b) and (a<c) then
writeln(a);
if (b<a) and (b<c)  then
writeln(b);
if (c<a) and (c<b)  then
writeln(c);
end.

Answer 2

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

pascalCopy code
program Наименьшее_из_трех;

var
  число1, число2, число3, минимальное: real;

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

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

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

  if (число1 <= число2) and (число1 <= число3) then
    минимальное := число1
  else if (число2 <= число1) and (число2 <= число3) then
    минимальное := число2
  else
    минимальное := число3;

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

Вы можете запустить эту программу, и она попросит вас ввести три числа, а затем выведет наименьшее из них. Например:

Copy code
Введите первое число:
5
Введите второе число:
2
Введите третье число:
7
Наименьшее число: 2

В данном случае, наименьшее число - 2.