Var b,a: integer; begin for b: =1 to 10 do begin for a: =1 to 10 do begin writeln(a,'*',b,'=',a*b); end; end; end.получается не в виде таблицы а в столбик
// f# [< entrypoint> ] let main argv = let generatetable n m = array2d.init n m (fun i j -> (i+1) * (j+1)) let printmatrix (matrix: int[,]) = printf " " for i = 0 to (array2d.length1 matrix) - 1 do printf "%4d " (i+1) printf "\n" printf " " for i = 0 to (array2d.length1 matrix) - 1 do printf "" printf "\n" for j = 0 to (array2d.length2 matrix) - 1 do printf "%2d |" (j+1) for i = 0 to (array2d.length1 matrix) - 1 do printf "%4d " matrix.[i, j] printf "\n" printf "\n" let inputarray = generatetable 10 10 printmatrix inputarray system.console.readkey true |> ignore 0
var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
Популярные вопросы