Begin var a: integer; begin if_______ then writeIn(_____________) else...

Question

Begin
var a: integer;
begin
if_______ then writeIn(_____________)
else writeIn(_________);
end.

Comments

Ой, наоборот чётным

---

В смысле?

---

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

---

Так что ли: Beginvar a: integer;beginif a mod 2 = 0 then writeIn('Число является чётным')else writeIn('Число не является чётным');end.

---

Я не очень просто понял задание, это не одно и тоже?

---

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

---

ААА... вроде понял

---

По идее так должно быть, может ещё writeln на просто верно/неверно поменять

---

Ну, мы всегда writeln пишем

---

Нет, writeln('Вот тут должно быть верно/неверно');

Answer 1

Begin 
var a: integer;
begin
if a mod 2 = 0 then writeIn('Высказывание верно');
else writeIn('Высказывание неверно');
end.