Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1 и 2не
Объяснение:
...
s: = str(number);
for : = 1 to length(s) div 2 do
if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
uses crt; var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 0) then s: =s+a; until a=0; writeln(s); end.
Популярные вопросы