Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
tavola pitagorica - tavola pitagorica.pas

tavola pitagorica.pas

 Caricato da: Punkettone90
Scarica il programma completo

  1. program a_navi;
  2. var dati:array[1..10,1..10] of integer;
  3.     i,j:integer;
  4. begin
  5.  
  6.    for i:=1 to 10 do
  7. begin
  8.    for j:=1 to 10 do
  9.   begin
  10.     dati[i,j]:=i*j;
  11.     if j<10
  12.     then write (dati[i,j]:5)
  13.     else
  14.  
  15.     writeln(dati[i,j]:5);
  16.  
  17.   end;
  18. end;
  19.  
  20.  
  21.  
  22. readln;
  23. end.