Регистрация
katenkaklimcuk
25.07.2020 17:46
Информатика
Есть ответ 👍

Даны целые числа a,b и n. требуется найти количества целых чисел х таких, что 0< =x

249
455
Посмотреть ответы 2

Ответы на вопрос:

iulia085
iulia085
4,5(55 оценок)
Скер мафака биич андеграунд
Artur68084
Artur68084
4,6(91 оценок)

var n, m, p: word; begin write('enter number: '); readln(n); m : = n; p : = 0; while m > 0 do begin p : = p * 10 + m mod 10; m : = m div 10; end; if n = p then writeln('palindrome') else writeln('not palindrome'); readln; end.

Популярно: Информатика