![]() | ![]() |
|
|
program operaz;
var a,b,somma,diff,prod,int,resto:integer;
BEGIN
writeln('Dimmi un numero...');
readln(a);
writeln('... ora dimmene un altro');
readln(b);
somma:=a + b;
diff:=a - b;
prod:=a * b;
int:=a div b;
resto:=a mod b;
writeln('Dunque.. la somma di ',a,' e di ',b,' , ' ,somma,'. Premi invio per continuare... ' );
readln;
writeln('La loro differenza , ',diff,'. Premi invio per continuare... ');
readln;
writeln('Il loro prodotto , ',prod,'. Premi invio per continuare... ');
readln;
writeln('La loro divisione intera , ',int,'. Premi invio per continuare... ');
readln;
writeln('Il loro resto , ',resto);
readln
END.
Privacy |
Articolo informazione
Commentare questo articolo:Non sei registratoDevi essere registrato per commentare ISCRIVITI |
Copiare il codice nella pagina web del tuo sito. |
Copyright InfTub.com 2025