Question

Даны 4 числа, найти наименьшее из них.(язык Паскаль)

Answer 1

Program pr; Var a, b, c, d:integer; Begin Write('A='); Readln(a); Write('B='); Readln(b); Write('C='); Readln(c); Write('D='); Readln(d); if a

Answer 2

Для нахождения наименьшего из 4 чисел на языке Паскаль, вы можете использовать следующий код:

pascalCopy code
program FindSmallestNumber;
var
  num1, num2, num3, num4, smallest: real;
begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);

  smallest := num1;

  if num2 < smallest then
    smallest := num2;
  if num3 < smallest then
    smallest := num3;
  if num4 < smallest then
    smallest := num4;

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

Этот код позволяет вам ввести 4 числа и затем находит наименьшее из них, используя операторы if. Результат выводится на экран.