program Natmas;

var M: array[1..10, 1..10] of real;

I,J: integer;

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

M[I,J]:=I*J;

write(' ', M[I,J]);write(' ');

end;

writeln(' ');

end;

readln;

end.

PRINT "’ Ў«Ёжп Їiд Ј®а  "

'Таблиця Піфагора

DIM A(10, 10)

FOR i = 1 TO 10

FOR j = 1 TO 10

A(i, j) = i * j

PRINT A(i, j);

NEXT j

PRINT

NEXT i

INPUT z

#include <conio.h>

#include <iostream>

int main(void)

{

int i,j;

double a[10][10];

std::cout << "\nPifagor\n";

for (int i = 1; i < 11; i++) {

for (int j = 1; j < 11; j++) {

std::cout << i*j <<" ";}

std::cout << std::endl; }

getch();

return 0;

}

TextWindow.WriteLine("Таблиця Пiфагора")

For i = 1 To 10

For j = 1 To 10

a[i][j] =i*j

TextWindow.Write(a[i][j] + " ")

EndFor

TextWindow.WriteLine("")

EndFor