Вводится натуральное число, не превышающее 1 млрд. вывести количество четных чисел....

Question

Вводится натуральное число, не превышающее 1 млрд. вывести количество четных чисел. программа на Pascal

Answer 1

Program hhh54;
var x: longint;
begin
  read (x);
  if x mod 2 = 0 then write ('1')
  else write ('0');
end.