Где ошибка? Является ли заданное натуральное четырехзначное число палиндромом? Палиндромами называются числа, которые читаются одинаково слева-направо и справа-налево.

Напрмер, 8998, 3333.

Вводится целое число N (999 < N <10 000).

Вывести слово YES, если N является палиндромом и NO, если нет.

Var

N, a, b, c, d: Integer;

begin

Writeln ('Vvedite chislo') ;

ReadLn (N) ;

a:=N mod 10;

b:=N mod 100 div 10;

c:=N mod 1000 div 100;

d:=N div 1000;

if (a=d) and (b=c) then write ('YES')

else ('NO') ;

end.

Question

Информатика

Марат

27 июля, 03:25

Где ошибка? Является ли заданное натуральное четырехзначное число палиндромом? Палиндромами называются числа, которые читаются одинаково слева-направо и справа-налево.

Напрмер, 8998, 3333.

Вводится целое число N (999 < N <10 000).

Вывести слово YES, если N является палиндромом и NO, если нет.

Var

N, a, b, c, d: Integer;

begin

Writeln ('Vvedite chislo') ;

ReadLn (N) ;

a:=N mod 10;

b:=N mod 100 div 10;

c:=N mod 1000 div 100;

d:=N div 1000;

if (a=d) and (b=c) then write ('YES')

else ('NO') ;

end.

+3

Ответы (1)

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

Марюта · Answer 1

Предпоследняя строка. Перед ('NO') ; должно быть write или writeln.

Var

N, a, b, c, d: Integer;

begin

Writeln ('Vvedite chislo') ;

ReadLn (N) ;

a:=N mod 10;

b:=N mod 100 div 10;

c:=N mod 1000 div 100;

d:=N div 1000;

if (a=d) and (b=c) then write ('YES')

else writeln ('NO') ;

end.