👤
VORNICDIDYEZ
a fost răspuns

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!

Răspuns :

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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari