Question

ПОМОГИТЕ ПОЖАЛУЙСТА НУЖНО ОЧЕНЬ СРОЧНО. МНЕ ОСТАЛСЯ ЧАС. Напишите программу на языке Pascal, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Программа должна вывести одно число — максимальное число, кратное 4.​

Answer 1

Ответ:

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы

Answer 2

Конечно, вот программа на языке Pascal, которая выполняет задачу:

pascalCopy code
program MaxMultipleOfFour;
var
  n, num, maxMultipleOfFour: integer;
begin
  // Вводим количество чисел в последовательности
  write('Введите количество чисел в последовательности: ');
  readln(n);

  // Инициализируем переменную для хранения максимального числа, кратного 4
  maxMultipleOfFour := 0;

  // Вводим числа и ищем максимальное число, кратное 4
  for var i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(num);

    // Проверяем, является ли число кратным 4 и больше текущего максимального
    if (num mod 4 = 0) and (num > maxMultipleOfFour) then
      maxMultipleOfFour := num;
  end;

  // Выводим максимальное число, кратное 4
  writeln('Максимальное число, кратное 4: ', maxMultipleOfFour);
end.

Программа сначала запрашивает количество чисел в последовательности, а затем вводит сами числа и ищет максимальное число, кратное 4. Наконец, она выводит найденное максимальное число.