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.
Адрес клетки это - координаты этой клетки
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('s=').Replace(ReadlnString('t='),''))
end.
<u>Пример:</u>
s= дождик, дождик, перестань!
t= дождик
, , перестань!
Слушай сама головой работай . Мозги тебя для чего ? Давай сама