1.На вход программке даётся число N и N чисел (все естественные

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

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

Задать свой вопрос
Рузанков Кирилл
Принялся.
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))lt;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. Если появиться какие-то вопросы либо будут оплошности во время выполнения программки, пиши в комментах
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт