Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var c: string;
begin
write(Введите пятизначное число: );
readln(c);
if ( c[1] = c[5] ) AND ( c[2] = c[4] ) then writeln(Число является палиндромом!)
else writeln(Число не является палиндромом!);
end.