Question

Sa se scrie un program in Pascal care afiseaza primele 10 numere care impartite la 7 si 5 dau rest 2. Folositi instructiunea FOR.

Answer 1

Pascal:

var  

 a,b,c,i,n:integer;

begin

 read(n);

 a:=5;

 b:=7;

 for i:=1 to n do  

 begin

 if (i mod a =2) then

 writeln('Rezultatul numerelor 5=',i,'  ');

 end;

 for i:=1 to n do

 begin

 if (i mod b=2) then

 writeln('Rezultatul numerelor 7=',i,'');

 end;

end.