Question

Probleme de rezolvat in Pascal:
4. Sa se afiseze primele n numere naturale divizibile cu 5.
Exemplu: n=4. Se va afisa: 0 5 10 15
5. Sa se afiseze toate numerele de 4 cifre divizibile cu n.
6. Se citesc n numere intregi. Sa se calculeze media aritmetica a numerelor pare.
7. Se da un sir de numere intregi pana se intalneste numarul 0. Sa se afle de cate ori printre elementele sirului sunt numere egale cu primul element al sirului.
8. Se citesc doua numere a si b. Sa se calculeze catul si restul impartirii lui a la b, fara a folosi operatorii mod si div (Rezultatul se va obtine prin scaderea repetata a lui |b| din |a|.)
9. Se citeste n si sirul de valori reale x1, x2, …, xn ordonate crescator. Sa se determine distanta maxima intre doua elemente consecutive din sir.
Multumesc!

Answer 1

4)
var n,i:integer;

begin

read(n);
writeln;

for i:=0 to n-1 do
 write(i*5,' ');

end.


5)
var n,i:integer;

begin

read(n);
writeln;

for i:=1000 to 9999 do
 if (i mod n = 0) then write(i,' ');

end.


6)
var i,n,a,s,n1:integer;

begin

read(n);
writeln;

for i:=1 to n do begin
 read(a);
 if (a mod 2 = 0) then begin
  inc(s,a);
  inc(n1);
  end;
 end;

writeln;
writeln('Media: ',s/n1);

end.


7)
var n,n1,c:integer;

begin

read(n);
n1:=n;

while n<>0 do begin
 read(n);
 if n=n1 then inc(c);
 end;

writeln;
writeln(c,' ori');

end.


8)
var a,b:real;

begin

read(a,b);
writeln;

writeln('Cit: ',trunc(a/b));
writeln('Rest: ',a-trunc(a/b)*b);

end.


9)
var i,n,x,n1,max:integer;

begin

read(n);
writeln;

for i:=1 to n do begin
 read(x);
 if i=2 then max:=x-n1;
 if i>2 then
  if x-n1>max then 
   max:=x-n1;
 n1:=x;
 end;
 
writeln; 
writeln(max+1); 
 
end.