Question

Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.

Answer 1

var n, number, max:integer;

begin

n := 3;

while n > 0 do

begin

 readln(number);

 if n = 3 then max := number

 else if max < number then max := number;

 n := n - 1;

end;

writeln('Максимальное число = ', max);

end.

Answer 2

Для нахождения наибольшего из трех чисел с помощью Pascal и цикла while можно использовать следующий код. Для простоты, будем считать, что вводимые числа целочисленные:

pascalCopy code
program FindLargestNumber;
var
  num, largestNum, count: integer; // Объявляем переменные для ввода чисел, наибольшего числа и счетчика

begin
  writeln('Введите три числа:');
  
  count := 1; // Инициализируем счетчик
  readln(num); // Считываем первое число и сохраняем его как наибольшее число
  largestNum := num;
  
  while count < 3 do // Входим в цикл, пока не введем три числа
  begin
    readln(num); // Считываем следующее число
    if num > largestNum then // Если считанное число больше текущего наибольшего числа
      largestNum := num;   // Присваиваем наибольшему числу значение считанного числа
    count := count + 1; // Увеличиваем счетчик
  end;
  
  writeln('Наибольшее число: ', largestNum); // Выводим результат
end.

Пример работы программы:

Copy code
Введите три числа:
10
25
5
Наибольшее число: 25

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