Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В...

Question

Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В Паскале!!!

Answer 1

1.program AB;
2.var s, n :integer;
3.begin
4)s:=0;
5.for n:=1to10doif n mod2=0then s:=s+1;
6.writeln(s);
7.end.

Answer 2

Вроде так.

K := N div 2; 
if Odd(N) then Inc(K); 
WriteLn(K);