Mito 120308 punti

Qui di seguito c'è un programma scritto in Pascal che, inseriti due numeri a e b, calcola i multipli di 5 che stanno tra a e b loro compresi, scrivendo inoltre il numero totale dei multipli trovati.


program multipli_di_5_tra_due_numeri;
uses crt;
var a,b,c,d,r:integer;
begin
textbackground(1);
clrscr;
textcolor(10);
gotoxy(6,2);
writeln('Questo programma trova i multipli di 5 tra due numeri essi compresi');
gotoxy(2,4);
writeln('Inserisci due numeri a tua scelta');
repeat
gotoxy(2,6);
write('a:= ');
readln(a);
gotoxy(2,8);
write('b:= ');
readln(b);
until a<=b;
c:=0;
r:=a MOD 5;
if r=0 then d:=a
else if r=1 then d:=a+4
else if r=2 then d:=a+3
else if r=3 then d:=a+2
else d:=a+1;

while d<=b do begin
writeln;
write(d:5);
c:=c+1;
d:=d+5;
end;
writeln;
writeln;
writeln;
writeln(' I multipli di 5 che cercavi sono ', c);
writeln;
writeln;
writeln;
writeln(' Questo programma è stato ideato da SuperGaara!!!');
readln;
end.

Registrati via email