Question

dau 100 puncte ajutatima rapid ps dau si coroana toate exercitile

Answer 1

Exercitiul 2)b)
a=1
Se scrie 1  17    a = 2
Se scrie 2  1     a = 3
Se scrie 3  2     a = 4
Se scrie 4  1     a = 5
Se scrie 5  2     a = 6
Se scrie 6  5     a = 7
4.
  program da;
  var n,s,i:integer;
  begin write('n= ');
  readln(n);
  s:=0;
  for i:=1 to n do
  if (n mod i = 0) then s=s+i;
  write('Suma divizorilor numarului este: ', s);
  readln;
 end.
 5.
 program da;
 var suma:real;tempS:integer;
       n,i:integer;
 begin
  write('n= ');readln(n);
  for i:=1 to n do
  begin
   tempS = 1/i;
   suma=suma+tempS;
  end;
  write('Suma este: ', suma);
  readln;
 end.
 6.
 program da;
 var x,y,v1,v2:integer;
 begin
  write('v1= ');readln(v1);
  write('v2= ');readln(v2);
  x:=v1;
  repeat
   y:=2*x-3;
   x++;
   write('Valoarea expresiei este: ', y);
  until (x >= v2);
  readln;
 end.