Question

Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел

Answer 1

Program f1;

var a,b,max, min:real;

begin 

writeln ('vvedine chisla');

readln (a,b);

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

writeln ('max=',max , 'min=',min);

readln;

end.

Answer 2

Program chislo;

var a,b,min:real;

begin 

writeln ('vvedine chisla a and b');

readln (a,b);

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

writeln ( 'min=',min);

readln;

end.

 

В верхнем решении находим max который неуказан в задании  , поэтому это лишнее !

Answer 3

Программа на Паскале для нахождения наименьшего из двух чисел:

program FindMin;
var
  num1, num2, min: integer;
begin
  writeln('Введите два числа:');
  readln(num1);
  readln(num2);
  
  if num1 < num2 then
    min := num1
  else
    min := num2;
  
  writeln('Наименьшее число: ', min);
end.

Эта программа сначала запрашивает у пользователя два числа, затем сравнивает их с помощью условного оператора if-else и сохраняет наименьшее из них в переменную min. После этого программа выводит наименьшее число на экран.