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

Нужно вывести то число, в котором наименьшее количество цифр.

Если таких чисел несколько, вывести любое из них. Примеры: 4 123 24 167 8762 = > 24; 5 13 4 16 100 8 = > 4

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

Пример: 1001 1111 1221 1331 ... 9889 9999

Question

Информатика

Феофан

14 августа, 03:58

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

Нужно вывести то число, в котором наименьшее количество цифр.

Если таких чисел несколько, вывести любое из них. Примеры: 4 123 24 167 8762 = > 24; 5 13 4 16 100 8 = > 4

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

Пример: 1001 1111 1221 1331 ... 9889 9999

+5

Ответы (1)

Знаете ответ на вопрос?

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