0

Рейтинг

Написать программу,которая запрашивает с клавиатуры четырехзначное число и срав??ивает в нём

Написать программу,которая запрашивает с клавиатуры четырехзначное число и срав??ивает в нём первую и последнюю цифры, вторую и третью цифры. Если первая цифра равна четвёртой, а третья второй, то выводит на экран "Палиндорм", а в противном случае "не Палиндорм".

Категория: Информатика 3 года назад

На вопрос 3 года назад

Милена Вовк

0

Рейтинг

Var
a:integer;
begin
write('Введите число ');
readln(a);
if (a div 1000 = a mod 10) and ((a div 100)mod 10 =(a div 10)mod 10)then
writeln('Палиндром')
else writeln('не Палиндром');
end.

Ответ получен 3 года назад

Ярослава Антипенко

0

Написать программу,которая запрашивает с клавиатуры четырехзначное число и срав??ивает в нём

Ответы (1)

0

Войти на сайт