Проверить признак делимости вводимого числа на 10 - Pascal

Узнай цену своей работы

Формулировка задачи:

Прошу помощи. Нужно составить программу, которая проверяла бы признак делимости вводимого числа на 10.

Решение задачи: «Проверить признак делимости вводимого числа на 10»

textual
Листинг программы
var n: integer;
begin
  write('Введите число: ');
  readln(n);
  if n mod 10 = 0
    then write('Число делится на 10')
    else write('Число не делится на 10');
  readln
end.

Объяснение кода листинга программы

  1. Переменная n типа integer и инициализируется значением, введенным пользователем.
  2. Выводится сообщение «Введите число: », чтобы пользователь мог ввести число.
  3. С помощью функции readln считывается введенное пользователем значение и сохраняется в переменной n.
  4. Выполняется проверка условия n mod 10 = 0, где mod - оператор остатка от деления. Если условие истинно, то переменной n присваивается значение «Число делится на 10».
  5. Если условие ложно, то переменной n присваивается значение «Число не делится на 10».
  6. Выводится сообщение «Число не делится на 10» или «Число делится на 10», в зависимости от значения переменной n.
  7. Выводится символ новой строки с помощью функции readln, чтобы перейти к следующему шагу программы.

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы