Дано целое число а. Проверьте высказывание "Число является нечётным" Допишите фрагмент...

Question

Дано целое число а. Проверьте высказывание "Число является нечётным" Допишите фрагмент программы:
begin
var a: integer;
begin
if __________ then writeIn(_________________)
else writeIn(____________);
end.

Answer 1

begin 
var a: integer;
begin
if a mod 2 = 1 then writeIn('Число не является чётным');
else writeIn('Число является чётным');
end.

Comments

В данном случае a - тип integer, чтобы его поделить, нужно использовать div, тогда мы получим целое число того же типа integer, то есть если мы таким образом 5 поделим на 2 (5 div 2) то получим 2, а mod вычисляет остаток от деления, при делении на 2 он либо равен 1 либо 0, то есть 4 - чётное число, 4 mod 2 - получим 0, тогда 4 - чет. 5 - нечётное число, 5 mod 2 получим 1, тогда 5 - нечет. Надеюсь ты поняла, если нет переспроси, попробую более кратко объяснить

---

Честно говоря не очень. Нам просто это задали, но не объяснили и в учебнике такого нет.

---

integer - это тип переменной, которая может быть только целым числом, то есть 1, 2, 3, 4 и т. д. Чтобы поделить тип integer на integer (разные типы переменных делить нельзя) то мы можем взять div, но тогда мы получим целое число, без остатка. Если мы воспользуемся вот этим mod, то после операции получим остаток от деления.

---

Кстати, чтобы программа работала, она должна выглядеть например так: var a: integer;
begin
readln(a);
if a mod 2 = 1 then writeln('Число не является чётным')
else writeln('Число является чётным');
end.

---

Вначале вводишь, чему должно равняться a, затем программа выводит является оно чётным или нет.

---

Спасибо, поняла. Можешь ещё одно решить?

---

Ну окей, давай, только желательно новым вопросом :)

---

begin

---

Хорошо, сейчас задам.

---

Вот правильная программа тут: begin
var a: integer;
begin
if a mod 2 = 1 then writeIn('Высказывание верно');
else writeIn('Высказывание неверно');
end.