Язык Паскаль. Дано натуральное число n. Какое это число? Проверка четности, кратности, на что оканчивается число

Анализ натурального числа: готовые решения на Pascal

Постановка задачи

Дано натуральное число n. Необходимо ответить на следующие вопросы:

• Число больше 10?
• Число кратно 3?
• Число четное?
• Число оканчивается на 7?
• Число оканчивается на 23?

Используемые операции

Для решения задачи применяем:

• Знаки сравнения:
  • > (больше)
  • < (меньше)
  • >= (больше либо равно)
  • <= (меньше либо равно)
  • = (равно)
  • <> (не равно)
• Операция mod - деление с остатком (для проверки кратности и четности)

Решение на Pascal с пояснениями

program NumberAnalysis;
var
  n: integer;
begin
  writeln('Введите натуральное число:');
  readln(n);  // Ввод числа от пользователя

  // Проверка: число больше 10?
  if n > 10 then 
    writeln('Число больше 10')
  else 
    writeln('Число не больше 10');

  // Проверка кратности 3
  if n mod 3 = 0 then 
    writeln('Число кратно 3')
  else 
    writeln('Число не кратно 3');

  // Проверка четности
  if n mod 2 = 0 then 
    writeln('Число четное')
  else 
    writeln('Число не четное');

  // Проверка окончания на 7
  if n mod 10 = 7 then 
    writeln('Число оканчивается на 7')
  else 
    writeln('Число не оканчивается на 7');

  // Проверка окончания на 23
  if n mod 100 = 23 then 
    writeln('Число оканчивается на 23')
  else 
    writeln('Число не оканчивается на 23');
end.

Как работает программа:

1. Программа запрашивает у пользователя ввод натурального числа
2. Последовательно проверяются все условия с помощью оператора if-else
3. Для каждой проверки выводится соответствующий результат
4. Операция mod используется для проверки:
   • Кратности (остаток от деления)
   • Четности (деление на 2)
   • Окончания числа (последние цифры)

Особенности проверки окончания числа

• Для проверки последней цифры используем n mod 10
• Для проверки двух последних цифр используем n mod 100
• Аналогично можно проверять окончание на любое количество цифр:
  • 3 цифры: n mod 1000
  • 4 цифры: n mod 10000

Задан проходной балл. Запрашиваются оценки абитуриента на трех экзаменах и сообщается о результате приема в институт. Решение задачи с использованием условных операторов для проверки проходного балла. Читать	Определить, делителем каких целых чисел из А, В и С является целое число N. Программа проверяет делимость чисел с использованием операции mod. Читать	Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом Алгоритм разбора числа по цифрам и проверки суммы. Читать
Является ли число двузначным Проверка диапазона числа с использованием простых условий. Читать	Известен рост трех человек. Определить, одинаков ли их рост? Сравнение трех значений с использованием логических операторов. Читать	Проверка числа на четность и кратность трем Использование операций mod для анализа свойств числа. Читать