Question

На языке Паскаль Ввести 3 числа среди них найти наименьшее и вывести его.

Answer 1

Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.

Answer 2

Конечно, вот пример программы на языке Паскаль, который позволит вам ввести 3 числа, найти наименьшее из них и вывести его:

pascalCopy code
program FindMinimum;
var
  num1, num2, num3, min: real;
begin
  writeln('Введите первое число: ');
  readln(num1);

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

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

  if (num1 <= num2) and (num1 <= num3) then
    min := num1
  else if num2 <= num3 then
    min := num2
  else
    min := num3;

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

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