Программа Паскаль.

Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0

Question

Информатика

Кириана

11 декабря, 16:46

Программа Паскаль.

Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0

+1

Ответы (1)

Знаете ответ на вопрос?

Тура · Answer 1

Var x: integer;

begin

write ('Введите трехзначное число: ') ;

readln (x) ;

if (x 1000) then writeln ('Ошибка! Число не трехзначное.')

else

if (x div 100) = (x mod 100) then writeln ('1')

else writeln ('0') ;

end.

Программа Паскаль.Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0

Программа Паскаль.

Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0