С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
 Аватар для Nachalnika
4 / 4 / 0
Регистрация: 25.11.2012
Сообщений: 80

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

06.12.2012, 20:40. Показов 3441. Ответов 3

Студворк — интернет-сервис помощи студентам
Как написать программу которая при вводе четырехзначного числа определяет является ли оно перервертышем? Допустим как 2332 или 6666..
надо как то с div и mod не имею понятия как,подскажиет пожалуйста)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.12.2012, 20:40
Ответы с готовыми решениями:

Написать функцию, которая принимает число и определяет, является ли оно простым
1. Написать функцию, которая принимает число и возвращает: - true - если переданное число простое; - false - если переданное число не...

Составить программу, которая определяет цифры заданного четырёхзначного числа
Составить программу, которая определяет цифры заданного четырёхзначного числа.

Нужно откоректировать программу которая будет при вводе любого числа, выводить чётное оно или нет
Здравствуйте, мне нужно откоректировать программу которая будет при вводе любого числа, выводить чётное оно или нет. Я попытался...

3
2 / 2 / 2
Регистрация: 10.01.2012
Сообщений: 16
07.12.2012, 21:18
вот так....


Pascal
1
2
3
4
5
6
7
8
9
var a,a1,a2,a3,a4:integer;
begin
  read(a);
  a1:=a div 1000;
  a2:=(a mod 1000) div 100;
  a3:=(a mod 100) div 10;
  a4:=a mod 10;
  if (a1=a4) and (a2=a3) then write('YES') else write('NO');
end.
1
3 / 3 / 2
Регистрация: 07.12.2012
Сообщений: 20
07.12.2012, 22:56
можно еще легче
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n,a:integer;
BEGIN
  read(n);
  a:=0;
  while n<>0 do
  begin 
    a:=a*10+(n mod 10);
    n:=n div 10;
  end;
  if a=n then writeln('YES') else writeln('NO');
END.
0
2 / 2 / 2
Регистрация: 10.01.2012
Сообщений: 16
07.12.2012, 23:00
Цитата Сообщение от mizukikaito Посмотреть сообщение
можно еще легче
дело вкуса...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.12.2012, 23:00
Помогаю со студенческими работами здесь

Написать программу, которая определяет является ли сумма двух самых минимальных цифр числа четной
Написать программу, которая определяет является ли сумма двух самых минимальных цифр числа четной.

Написать программу, которая определяет выполнено ли следующее условие: текст является правильной записью целого числа
Текст задан последовательностью литер, за которыми идет '.' . Что-то сообразить не могу, где ошибка. #include &quot;pch.h&quot; ...

Написать программу что бы при вводе какогото целого числа оно удваивалось и записывалось в конце в обратном порядке
Нужно написать программу что бы при вводе какогото целого числа оно удваивалось и записывалось в конце в обратном порядке например 123...

Функция, которая для одного целого числа определяет, является ли оно кратно числу К
1) функцию, которая для одного целого числа (не для одномерного массива и не для матрицы) определяет, является ли оно кратно числу К, где К...

Написать программу, которая считывает целое число, определяет и печатает, четное оно или нечетное
Привет,народ!Помогите написать программу ,которая считывает целое число, определяет и печатает, четное оно или нечетное.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru