aritmetica

esci altro.htm

program prova3;
uses crt;
var x,y,somma,differenza,prodotto,risposta:integer;
begin
clrscr;
write('scrivi numero intero minore di 200:');readln(x);
write('scrivi numero intero minore di 100:');readln(y);
somma:=x+y;
differenza:=x-y;
prodotto:=x*y;
writeln('scrive risposta a domanda presentata');
write('somma=');readln(risposta);
if risposta=somma then writeln('esatto')
else writeln('errato:era=',somma);
write('differenza=');readln(risposta);
if risposta=differenza then writeln('esatto')
else writeln('errato:era=',differenza);
write('prodotto=');readln(risposta);
if risposta=prodotto then writeln('esatto')
else writeln('errato:era=',prodotto);
writeln('premi INVIO per finire');
readln;
end.