В комплект поставки входило немного программ — четыре игры: «Реверси», «Питон», «Морской бой» и «Шахматы», причём последняя работала только в текстовом режиме
дешифровки: Const sh = '_.,'; Var St : String; i : Integer; Function DeCode(S : String; Tabl : String; k : Integer) : String; Var j,n : Integer; Begin For j:=1 to Length(S) do Begin n:=Pos(S[j],sh); If n>0 then Begin n:=n+k; While n>Length(sh) do n:=n-Length(sh); While n<=0 do n:=n+Length(sh); S[j]:=sh[n]; end end; DeCode:=S; end; Begin St:='ЗЫФЙГФШРЦ . ШД'; Writeln(Decode(St,sh,-6)); //For i:=-10 to 10 do Writeln(Decode(St,sh,i)); end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите её версию!
begin var b:=MatrRandom(4,4,-5,5); b.Println(3); var p:=1; var s:=0; Write('Элементы главной диагонали: '); for var i:=0 to 3 do for var j:=0 to 3 do if i<j then p*=b[i,j] else if i>j then s+=b[i,j] else Write(b[i,j]:3); Writeln(Newline,'П=',p,', S=',s) end.
Пример -2 -1 -2 4 0 1 1 -3 0 1 5 5 3 4 3 2 Элементы главной диагонали: -2 1 5 2 П=-120, S=11
В комплект поставки входило немного программ — четыре игры: «Реверси», «Питон», «Морской бой» и «Шахматы», причём последняя работала только в текстовом режиме