👤
a fost răspuns

Scrieți un program care calculează:1+1/2+1/4...+1/n.
Programare în Pascal vă rog!!!

Răspuns :

Howardaxzone

program brainly;

var n, i :integer;

s:real;

begin

 s:=1;

 Write('Dati n:'); readln(n);

 Write('S=',s:2:2,'+');

 for i:=1 to n do begin

 s:=s+(1/(i*2));

 if i=n then

 begin

 Write('1/',i*2);

 end

 else begin

 Write('1/',i*2, '+');

 end;

 end;

 Writeln();

 Writeln('S=',s:2:2);

end.

Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.


Zone Alte intrebari