Question

Паскаль. Найти max из 3-х чисел

Answer 1

Uses crt;
var  a, b, c, max: integer;
begin 
readln(a,b,c); 
writeln(a, '   ', b, '   ', c); 
max := a;  
if max < b then max := b; 
if max < c then max := c; 
writeln('max= ',max);
end.

Answer 2

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

arduinoCopy code
program max_of_three;

var
  a, b, c, max: integer;

begin
  write('Enter three numbers: ');
  readln(a, b, c);
  
  max := a; // Предполагаем, что максимальное число - a
  
  if b > max then
    max := b;
    
  if c > max then
    max := c;
    
  writeln('The maximum of the three numbers is ', max);
  readln;
end.

Программа запрашивает у пользователя три числа и затем сравнивает каждое число со значением переменной max, которая изначально установлена равной первому введенному числу a. Если число b или c больше, чем текущее значение переменной max, то оно становится новым максимальным числом. В конце программа выводит максимальное число.