2005-12-05 19:13:25 Artem_The_Great Буду очень благодарен Program prim; Uses crt; var i,j,n:integer; a: array[1..100,1..100] of integer; begin Clrscr; Write('Vvedite n='); read(n); j:=0; for i:=1 to n do begin inc(j); a[i,1]:=j; end; for i:=n-1 downto 1 do begin inc(j); a[i,n-i+1]:=j; end; for i:=n-1 downto 2 do begin inc(j); a[1,i]:=j; end; writeln; for j:=1 to n do begin for i:=1 to n-j+1 do write(a[i,j]:3); writeln; end; readln end. |
2005-12-05 19:15:02 Artem_The_Great *Люди!!!! Вопрос жизни и смерти!!! Нужно прогу переписать из Паскаля на Бейсик !!! |