Ответы
Ответ дал:
0
Program SyrnayaBulka;
var i,j,k:integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(67) end;
writeln;writeln;
for i:=1 to 6 do
begin
write(' ');
for j:=1 to 6 do
begin
k:=i+j-1;
if k>6 then k:=k-6;
write(k,' ');
end;
writeln;
end;
end.
Приложения:
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrGen(6, t -> t + 1);
var b := new integer[6, 6];
for var i := 0 to 5 do
begin
b.SetRow(i, a);
a := a[1:] + a[:1] // циклический сдвиг влево на 1 позицию
end;
b.Println(2)
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад