Ответы
Ответ дал:
0
var k,n,i:longint;
begin
readln(n);
k:=0;
for i:=1 to n do
if i mod 2<>0 then k:=k+1;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад