Палиндром
Дано слово, состоящее только из заглавных и строчных латинских букв. Проверьте, верно ли, что это слово читается одинаково как справа налево, так и слева направо (то есть является палиндромом), если считать заглавные и строчные буквы неразличающимися. Выведите слово YES, если слово является палиндромом, и слово NO, если не является.

Решение необходимо сдать в виде функции IsPalindrome (S), возвращающей значение типа bool. При решении этой задачи нельзя пользоваться вс массивами или строками.

Примеры
Ввод
Вывод
Radar
YES
YES
NO

галя,толя,миша,лена,вася

где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.

само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и  бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.

512 бит = 512/8=  64 байт

1073741824 байт =1073741824/1024=1048576 кбайт / 1024= 1024 мбайт

1024 кбайт = 1024*1024=1048576 байт

4

дискета 3,5 = 720 кбайт

сd= 650 мбайт

dvd= 1,4 гбайт- 17,08гбайт

жесткий диск = до 5 тбайт (терабайт)

5

30 кбайт= 30*1024 = 30720 байт

125 кбайт  =  125* 1024 =128000 байт

1024 кбайт = 1024* 1024 = 1048576 байт

71 кбайт = 71 * 1024 = 72704 байт

13 гбайт = 13*1024=13312мбайт=13312*1024=13631488кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 кбайт

32 гбайт = 32*1024*1024=33554432 кбайт

769мбайт = 769*1024 = 787456 кбайт

512 байт = 512 /1024 = 0,5 кбайт

70254592 байт = 70254592/1024/1024=67 мбайт

42 гбайт = 42*1024= 43008 мбайт

20482 кбайт = 20482/1024 = 20мбайт

2 гбайт =2*1024=2048 мбайт 

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.