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
Спасибо
Ответ дал: Гость
я бы сделал
program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.
Популярные вопросы