Mito 120308 punti

Qui di seguito c'è un programma scritto in Pascal che, inseriti due numeri n e m, calcola, scrive e conta i numeri dispari compresi tra n e m, loro inclusi.


program numeri-dispari;
uses crt;
var n,m,c,r,d:integer;
begin
textbackground(1);
clrscr;
textcolor(10);
gotoxy(2,2);
writeln('Questo programma trova tutti i numeri dispari compresi tra due da te scelti!');
gotoxy(2,4);
writeln('Inserisci ora i numeri da cui vuoi partire: ');
repeat
gotoxy(2,6);
write('n= ');
readln(n);
gotoxy(2,7);
write('m= ');
readln(m);
until n<=m;
c:=0;
r:=n MOD 2;
if r=0 then d:=n+1
else d:=n;
writeln;
writeln(' I numeri dispari trovati sono: ');
writeln;
while d<=m do begin
write(d:5);
c:=c+1;

d:=d+2;
end;
writeln;
writeln;
write(' I numeri dispari sono in totale: ',c);
textcolor(11+16);
gotoxy(2,49);
writeln('Programma realizzato da SuperGaara');
readln;
end.

Registrati via email