Question

Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале

Answer 1

//Наибольшее из трёх чисел, кратное трём; PascalABC.NET

Answer 2

Конечно! Вот программа на языке Pascal, которая находит наибольшее из трех чисел и проверяет, делится ли это число на три:

pascalCopy code
program MaxNumberAndDivisibleByThree;

var
  num1, num2, num3, maxNum: integer;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  writeln('Введите третье число:');
  readln(num3);
  
  { Находим наибольшее число }
  maxNum := num1;
  
  if num2 > maxNum then
    maxNum := num2;
    
  if num3 > maxNum then
    maxNum := num3;
    
  writeln('Наибольшее число: ', maxNum);
  
  { Проверяем, делится ли наибольшее число на три }
  if maxNum mod 3 = 0 then
    writeln('Наибольшее число является кратным трём')
  else
    writeln('Наибольшее число не является кратным трём');
    
  readln;
end.

После запуска программы вы сможете ввести три числа, и она выведет наибольшее число, а затем сообщит, делится ли оно на три или нет.