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. Если возникнуть какие-то вопросы или будут ошибки во время выполнения программы, пиши в комментариях