Задачи по Pascal. Четное ли число?

pascal Условие задачи :  Определить является число введенное пользователем четным .

Сложность : легкая .

Эта задача очень часто встречается в школах и институтах, так что давайте её разберем.
Решать эту задачу мы будем с помощью операции mod , которая позволит найти нам остаток от деления.

Как мы определяем четность числа в жизни, мы проверяем делиться ли оно на 2, точно также и здесь, мы проверим делиться ли оно на 2 .

Для начала создадим каркас :

uses crt;
var number : integer ;

begin
end.

Четность можно определять только у целых чисел, не забывайте об этом.

Дальше просим пользователя ввести число и сразу же напишем условие :

write('Введите число и нажмите <Enter>'); readln(number);

if number mod 2  = 0 then {если делиться на 2}
          writeln('Число четное')
else writeln('Число не четное');

Всё довольно просто, как я и сказал операции mod ищет остаток от деления в нашем случае определяет делиться ли нацело число на 2.

Если не обращать внимание на четность и вместо двойки подставить 3.

number mod 3

Т.е. если number у нас будет 10, то тогда число 10 не делиться на 3, т.к. будет остаток , а если будет 9 , тогда уже будет делиться, вот так и со всеми числами.

Весь код программы :

uses crt;
var number : integer ;

begin
clrscr;

write('Введите число и нажмите <Enter> '); readln(number);

if number mod 2  = 0 then 
          writeln('Число четное')
else writeln('Число не четное');

readln; {чтобы программа не закрывалась}
end.

Вот результат :

ris115

ConservationHawaii.org e-prescribing software