составте программу на языке паскаль, выводящую на экран сообщение следующего вида: " число w является четным ( нечетным) " о некотором целом не равном числе (w),введенным с клавиатуры. задача должна быть решена условным оператором. очень срочно)
Answers & Comments
A1dar
Var w: integer; begin write('Введите число: '); read(w); if w mod 2 = 0 then writeln('Число ', w, ' является четным') else writeln('Число ', w, ' не является четным') end.
Пример работы программы: Введите число: 12 Число 12 является четным
Answers & Comments
w: integer;
begin
write('Введите число: ');
read(w);
if w mod 2 = 0 then writeln('Число ', w, ' является четным')
else writeln('Число ', w, ' не является четным')
end.
Пример работы программы:
Введите число: 12
Число 12 является четным