Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в п�следовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся На вход числа 3 13 23 3 вывод 23на 3.НАпишите на турбо паскале

Answer 1

var

 n, i, s, t: integer;

begin

 read(n);

 for i := 1 to n do

 begin

   read(s);

   if (s > t) and (s mod 10 = 3) then t := s;

 end;

 write(t);

end.

Answer 2

Вот программа на Turbo Pascal, которая решает задачу:

pascalCopy code
program MaxNumberEndingWith3;

var
  n, i, num, maxNum: integer;

begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);

  writeln('Введите числа:');
  readln(maxNum); // Первое число вводим отдельно, чтобы инициализировать переменную maxNum

  for i := 2 to n do
  begin
    readln(num);
    if (num mod 10 = 3) and (num > maxNum) then
      maxNum := num;
  end;

  writeln('Максимальное число, оканчивающееся на 3: ', maxNum);
end.

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