aritmetica

esci altro.htm

program prova1;
uses crt;
var x,y,somma,differenza,prodotto:integer;
quoziente:real;
begin
clrscr;
x:=100;
y:=20;
somma:=x+y;
differenza:=x-y;
prodotto:=x*y;
quoziente:=x/y;
writeln('somma=',somma);
writeln('differenza=',differenza);
writeln('prodotto=',prodotto);
writeln('quoziente=',quoziente:8:2);
writeln('quoziente=',quoziente:8:0);
writeln('quoziente=',quoziente);
writeln('premi INVIO per finire');
readln;
end.