ESAGON.1PAS program apotema_esagono (input, output); Questo programma calcola l'apotema dell esagono*) var a:real; begin writeln Questo programma calcola lapotema dell' esagono; writeln ; writeln ; writeln Inserisci il valore del lato dell' esagono; readln(a); writeln Il risultato ', a * 0.866:2:2); readln; end. ESAGON.1BAK program apotema_esagono (input, output); Questo programma calcola l'apotema dell esagono*) var a:real; begin writeln Questo programma calcola lapotema dell' esagono; writeln ; writeln ; writeln Inserisci il valore del lato dell' esagono; readln(a); writeln Il risultato ', a * 0.866); end. Continua »