SuperGaara
Genius
1 min. di lettura
Vota 4,5 / 5

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.

Pascal - Multipli di 5 tra due numeri articolo

Domande e risposte

Hai bisogno di aiuto?
Chiedi alla community