Question

1.На вход программе даётся число N и N чисел (все натуральные <10000).
Нужно вывести то число, в котором наименьшее количество цифр.
Если таких чисел несколько, вывести любое из них.Примеры: 4 123 24 167 8762 => 24; 5 13 4 16 100 8 => 4

2.Программа должна вывести все четырёхзначные числа, которые являются палиндромами (т.е. читаются одинаково справа налево и слева направо).
Пример: 1001 1111 1221 1331 ... 9889 9999

Answer 1

Задача 1.

var
n, i, lmin, a, min: integer;
begin
readln(n);
lmin:=32000;
for i:=1 to n do
 begin
  read(a);
  if length(inttostr(a))<lmin then begin lmin:=length(inttostr(a)); min:=a; end;
 end;
write(min);
end.

Задача 2.
var
i: integer;
s: string;
begin
for i:=1000 to 9999 do
begin
 s:=inttostr(i);
 if (s[1]=s[4]) and (s[2]=s[3]) then writeln(i);
end;
end.

Писалось в Pascal ABC. Если возникнуть какие-то вопросы или будут ошибки во время выполнения программы, пиши в комментариях