第一道var a,b,i,j:longint;beginreadln(a,b);for i:=1 to a*b div 5 dobegin if i mod 2=1 then for j:=1+(i-1)*5 to 5+(i-1)*5 do write(j,' ') else for j:=5+(i-1)*5 downto 1+(i-1)*5 do write(j,' '); writeln;end;end.第二道:var a,b,i,j,k:longint;aa:array[0..10,0..10] of longint;begin...
|