Составте программу ** языке паскаль, выводящую ** экран сообщение следующего вида: "...

Question

Составте программу на языке паскаль, выводящую на экран сообщение следующего вида: " число w является четным ( нечетным) " о некотором целом не равном числе (w),введенным с клавиатуры. задача должна быть решена условным оператором. очень срочно)

Answer 1

Var
  w: integer;
begin
  write('Введите число: ');
  read(w);
  if w mod 2 = 0 then writeln('Число ', w, ' является четным')
                 else writeln('Число ', w, ' не является четным')
end.

Пример работы программы:
Введите число: 12
Число 12 является четным

Comments

спасибо большое тебе)

---

спасибо большое тебе)

---

Пожалуйста