👤
MEDELINAWIX
a fost răspuns

Să se scrie trei programe(unul cu utilizarea instrucțiunii For, altul cu utilizarea instrucțiunii While și al treilea cu utilizarea instrucțiunii Repeat) care calculează câte numere naturale mai mici sau egale cu N sunt divizibile cu A. Numerele N și A se citesc de la tastatură. în Pascal​

Răspuns :

Răspuns:

program utilizareFor;

var n,a,num, contor:integer;

begin

 write('n='); read(n);

 write('a='); read(a);

 contor:=0;

 for num:=a to n do

   if num mod a=0 then inc(contor);

 writeln(contor,' numere <= ',n,' se divid prin ',a);

end.

program utilizareWhile;

var n,a,num, contor:integer;

begin

 write('n='); read(n);

 write('a='); read(a);

 contor:=0;

 num:=a;

 while num<=n do

   begin

     if num mod a=0 then inc(contor);

     inc(num);

   end;

 writeln(contor,' numere <= ',n,' se divid prin ',a);

end.

program utilizareRepeat;

var n,a,num, contor:integer;

begin

 write('n='); read(n);

 write('a='); read(a);

 contor:=0;

 num:=a;

 repeat

    if num mod a=0 then inc(contor);

    inc(num);

 until num>n;

 writeln(contor,' numere <= ',n,' se divid prin ',a);

end.

Explicație:

 pentru a afla câte numere mai mici sau egale ca n sunt divizibile cu a era destul de scris o singură instrucţiune

writeln(n div a);

fără nici o repetare... dar pentru antrenament, da...

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari