Определить, что данное четырехзначное число заканчиваются четным числом - Turbo Pascal

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

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

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

Решение задачи: «Определить, что данное четырехзначное число заканчиваются четным числом»

textual
Листинг программы
uses crt;
var  n,x: integer;
 
BEGIN
clrscr;
write('Vvedite 4-oye chislo: ');
readln(n);
x:=n mod 10;
if (x mod 2 = 0) then writeln('Chislo okanchivayetsu na chetnuyu cifru')
else writeln('Chislo okanchivayetsa na nechetnoyu cifru');
 
repeat until keypressed;
END.

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

  1. В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal и используется для работы с функциями ввода-вывода.
  2. Затем определяются две переменные: n и x, которые являются целочисленными типами данных.
  3. С помощью функции readln() происходит чтение четырехзначного числа из стандартного ввода.
  4. Значение переменной x вычисляется как остаток от деления числа n на 10. Это необходимо для определения последней цифры числа.
  5. Затем происходит проверка: если остаток от деления x на 2 равен нулю, то это означает, что последняя цифра числа четная, и выводится сообщение Chislo okanchivayetsu na chetnuyu cifru (Число заканчивается на четную цифру). В противном случае выводится сообщение Chislo okanchivayetsa na nechetnoyu cifru (Число заканчивается на нечетную цифру).
  6. Код повторяется до тех пор, пока пользователь не нажмет клавишу.
  7. В конце кода с помощью функции clrscr() очищается экран.

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

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