Программа Паскаль. Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0
Программа Паскаль. Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SymmetryCheck;
var
number, firstDigit, lastDigit: integer;
begin
writeln('Enter a three-digit number: ');
readln(number);
firstDigit := number div 100;
lastDigit := number mod 10;
if firstDigit = lastDigit then
writeln('1')
else
writeln('0');
end.