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

Лююди помогите!!!
Напишите программу ,проверяющую нечетность веденного с клавиатуры числа.

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

Program n1;
var a: integer;
begin
  write (введите число);
  read (a);
 if a mod 2 =1 then writeln (число нечетное) else writeln (число четное)
end.