Question

Jak zrobić żeby ten program pokazywał cała tabliczkę mnożenia? bo zrobiłem ten i mnoży tylko przez 0.Program w Turbo Pascalu

Program tabliczka_mnozenia;

uses Crt;

var

mnozna,mnoznik:integer;

Begin

ClrScr;

mnozna:=0;

Repeat

WriteLn(mnozna,'*',mnoznik,'=',mnozna*mnoznik);

mnoznik:=mnoznik+1;

Until mnoznik>10;

ReadLn;

readkey;

End.

Answer 1

 

Program tabliczka_mnozenia;

 

uses Crt;

 

var

 

mnozna,mnoznik:integer;

 

Begin

 

ClrScr;

 

mnozna:=0;

 

repeat

 

mnoznik:=0;

 

repeat

 

WriteLn(mnozna,'*',mnoznik,'=',mnozna*mnoznik);

 

mnoznik:=mnoznik+1;

 

until mnoznik>10  ;

 

mnozna:=mnozna+1;

 

until mnozna>10  ;

 

ReadLn;

 

readkey;

 

End.