Wyskrobałem dzisiaj taki programik w pascalu
Kod: Zaznacz cały
PROGRAM Tabliczka;
USES Crt;
VAR
i,j,N:Integer;
BEGIN
ClrScr;
WriteLn ('Podaj N');
ReadLn(N);
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO N DO
BEGIN
WiteLn(i, 'x',j,'=',i*j);
END;
END;
ReadLn;
END.
Pozdrawiam