program vovka9673; uses crt; const n=5; var nm: array[1..n,1..n] of integer; i,j: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); for i: =1 to n do begin for j: =1 to n do begin nm[i,j]: =i*100+j-1; write (nm[i,j]: 5) end; writeln(); end; end.
Поделитесь своими знаниями, ответьте на вопрос:
На мове python дано катети прямокутного трикутника. знайдіть площу, периметр і гіпотенузу трикутника.
можно обойтись без массива и этим память компьютера.
можно также вывести такую матрицу (в виде песочных часов) любого размера. для этого нужно только изменить значение n в строке
const n=5
program pentelemon; uses crt; const n=5; var i,j: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); for i: =1 to n do begin for j: =1 to n do begin if ((j> =i) and (i+j< =n+1)) or ((j< =i) and (i+j> =n+1)) then write ('1 ') else write ('0 '); end; writeln(); end; end.