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.
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
64,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2) 2 Мбайт, 200 Кбайт, 1 Мбайт, 1000 Кбайт.
2 Мбайта ▬ 2048 Кбайт., 1 Мбайт ▬ 1024 Кбайт.