Ominide 30 punti

Pascal

Inserire da input 2 numeri. Si verificherà quale dei due è maggiore.
program es_2;
uses crt;
var n1,n2:integer;
verofalso:boolean;
begin
clrscr;
writeln('inserisci un numero');
readln(n1);
writeln('inserisci un numero');
readln(n2);
verofalso:=n1>=n2;
if (verofalso=true) then
begin
writeln(n1 , ' Š maggiore o uguale a ' , n2);
readln;
end;
if(verofalso=false) then
begin
writeln(n2 , ' Š maggiore di ' , n1);
readln;
end;
end.

Registrati via email