Люди!!!! Вопрос жизни и смерти!!! Нужно прогу переписать из


гильдия Мудрецы (Мастер)[6300] гильдия Охотники Илдиора (Элита)[77977] гильдия Королевские Лабоходы (Грандмастер)[14245] Artem_The_Great Информация
Назад к темам раздела.
2005-12-05 19:13:25 гильдия Мудрецы (Мастер)[6300] гильдия Охотники Илдиора (Элита)[77977] гильдия Королевские Лабоходы (Грандмастер)[14245] 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 гильдия Мудрецы (Мастер)[6300] гильдия Охотники Илдиора (Элита)[77977] гильдия Королевские Лабоходы (Грандмастер)[14245] Artem_The_Great Информация
*Люди!!!! Вопрос жизни и смерти!!! Нужно прогу переписать из
Паскаля на Бейсик !!!