допишите программу и выведите результат 1) for i:=1 to 4 do begin if i mod 2=0 then n:=i+1 else n:=i; for k:=1 to n do write (n-i, ' '); writeln; end; 2) for i:= 1 to 3 do for k:=3 downto 1 do for n:=i-k to (i+k) div 2 do write (n,'')​

владимир182    3   11.02.2021 21:43    7