Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1
Объяснение:
ответ 1 короче
var
n: integer;
begin
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
end.
x,y,z: longint;
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
Популярные вопросы