Concetti Chiave
- Il programma è scritto in Pascal e calcola i multipli di 5 tra due numeri dati, inclusi i numeri stessi.
- Viene richiesta l'immissione di due numeri e il programma verifica e corregge l'inizio del conteggio per allinearlo al primo multiplo di 5.
- Il ciclo while calcola e stampa i multipli di 5 tra i due numeri, incrementando di 5 ad ogni iterazione.
- Alla fine del calcolo, il programma mostra il numero totale dei multipli di 5 trovati tra i due numeri.
- Il programma include elementi di formattazione del testo e utilizza la libreria crt per gestire il display.
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
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
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.
