Вроде так.
K := N div 2; if Odd(N) then Inc(K); WriteLn(K);
1.program AB; 2.var s, n : integer; 3.begin 4)s:=0; 5.for n:=1 to 10 do if n mod 2=0 then s:=s+1; 6.writeln(s); 7.end.
Вроде так.
K := N div 2;
if Odd(N) then Inc(K);
WriteLn(K);
1.program AB;
2.var s, n : integer;
3.begin
4)s:=0;
5.for n:=1 to 10 do if n mod 2=0 then s:=s+1;
6.writeln(s);
7.end.