Помогите пожалуйста. программа Паскаль дано трехзначное число. ...
Помогите пожалуйста. программа Паскаль дано трехзначное число. Напишите программу, которая определяет: является ли число перевертышем, т.е числом, десятичная запись которого читается одинаково слева направо и справа налево Пример входных данных: 122, 121, 222 Пример выходных данных: нет, перевертыш, перевертыш
Есть ответ
17.12.2022
335
Ответ
var c, f, First, count:integer;begin write('c = '); readln(c); f := c; while (f div 10 > 0) do begin First := f div 10; count := 1; while (First div 10 > 0) do begin First := First div 10; Inc(count); end; if First f mod 10 then begin writeln('No'); readln; Exit; end; while count > 0 do begin First := First * 10; dec(count); end; f := f - First; f := f div 10; end; writeln('Changeling'); readln;end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
