Question

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​

Answer 1

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...