Запишите фрагмент программы, который позволит для заданного пятизначного числа, определить, является ли оно палиндромом.

Question

Информатика

Гораций

1 января, 03:16

Запишите фрагмент программы, который позволит для заданного пятизначного числа, определить, является ли оно палиндромом.

+3

Ответы (1)

Знаете ответ?

Артемьюшка · Answer 1

Var c: string;

begin

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

readln (c) ;

if (c[1] = c[5]) AND (c[2] = c[4]) then writeln ('Число является палиндромом!')

else writeln ('Число не является палиндромом!') ;

end.