Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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