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