Question

Паскаль. В первой строке программы задаётся кол-во чисел, не превышающих 300. Найти максимальное число, оканчивающееся на 3.

Answer 1

Var i, n, x:integer;
begin
write ('Введите число: ');
readln (n);
for i:=1 to n do
if i mod 10 = 3 then x:=i;
writeln (x)
end.

Пример:
Введите число: 100
93

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет указанную вами задачу:

pascalCopy code
program MaxNumberEndingWith3;

const
  MaxNumbers = 300;

var
  n, i, num, maxNumEndingWith3: integer;

begin
  write('Введите количество чисел: ');
  readln(n);

  maxNumEndingWith3 := -1;

  writeln('Введите числа:');
  for i := 1 to n do
  begin
    read(num);
    if (num mod 10 = 3) and (num > maxNumEndingWith3) then
      maxNumEndingWith3 := num;
  end;

  if maxNumEndingWith3 <> -1 then
    writeln('Максимальное число, оканчивающееся на 3: ', maxNumEndingWith3)
  else
    writeln('Число, оканчивающееся на 3, не было введено.');

end.

Эта программа позволяет пользователю ввести количество чисел, затем последовательно вводить числа и находить максимальное число из них, оканчивающееся на 3.