Назовём пару чисел зеркальной, если при записи любого из чисел справа налево получается его пара. Пример зеркальной пары чисел: 185 и 581. На любом известном Вам языке программирования напишите программу для нахождения максимального числа-палиндрома в промежутке [1, 10N], представляющего собой произведение пары зеркальных чисел.

ответ для промежутка [1; 108]: (ответ)

ответ для промежутка [1; 1014]: (ответ)

На скейтборде и на роликах умеют кататься 10 человек, а 3 из них катаются еще и на сноуборде. Следовательно, кататься только на скейтборде и на роликах умеют 10-3=7 ребят. Аналогично получаем, что только на скейтборде и на сноуборде умеют кататься 8-3=5 ребят, а только на сноуборде и на роликах 5-3=2 человека. Определим теперь, сколько человек умеют кататься только на одном спортивном снаряде. Кататься на сноуборде умеют 30 человек, но 5+3+2=10 из них владеют и другими снарядами, следовательно, только на сноуборде умеют кататься 20 ребят. Аналогично получаем, что только на скейтборде умеют кататься 13 ребят, а только на роликах – 30 ребят. По условию задачи всего 100 ребят. 20+13+30+5+7+2+3=80 – ребят умеют кататься хотя бы на одном спортивном снаряде. Следовательно, 20 человек не умеют кататься ни на одном спортивном снаряде. 

20 человек не умеют кататься ни на одном спортивном снаряде.

А я вот так сделал)

Написано в pascal.abc.net

Var
x : integer;
sex : char;
function numbers(n: integer): string;
begin
case n of
5: Result := 'пять';
6: Result := 'шесть';
7: Result := 'семь';
8: Result := 'восемь';
9: Result := 'девять';
10: Result := 'десять';
11: Result := 'одиннадцать';
12: Result := 'двенадцать';
13: Result := 'тринадцать';
14: Result := 'четырнадцать';
15: Result := 'пятнадцать';
16: Result := 'шестнадцать';
17: Result := 'семнадцать';
18: Result := 'восемнадцать';
19: Result := 'девятнадцать';
20: Result := 'двадцать';
21: Result := 'двадцать один';
22: Result := 'двадцать два';
23: Result := 'двадцать три';
24: Result := 'двадцать четыре';
25: Result := 'двадцать пять';
26: Result := 'двадцать шесть';
27: Result := 'двадцать семь';
28: Result := 'двадцать восемь';
29: Result := 'двадцать девять';
30: Result := 'тридцать';
31: Result := 'тридцать один';
32: Result := 'тридцать два';
33: Result := 'тридцать три';
34: Result := 'тридцать четыре';
35: Result := 'тридцать пять';
end;
end;
begin
writeln ('Введите пол и количество:');
Readln (sex,x);
write('В классе сейчас ', numbers(x));
if sex = 'м' then write(' мальчиков')
else if sex = 'ж' then write(' девочек');
end.