Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Объясню алгоритм:
считываем слово,
если это слово имеет чётную длину
если это слово палиндром
то ответ ложь
иначе ответ истина
a = int(input())
s = 1
flag = True
while s < a:
ch = s
count = ch
while ch > 9:
ch = sum(map(int,str(ch)))
count += ch
if count == a:
print(s)
flag = False
break
s += 1
if flag:
print(-1)