Ответ(ы) на вопрос:
Гостьvar s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы
Гость