язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
Ответ дал: Гость
s: = str(number);
for : = 1 to length(s) div 2 do
if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
Популярные вопросы