TESTARE by Lungescu Violeta

PROBLEMA 1

violetalungescu — 2016-04-07 20:03:44 UTC

Fie urmatoarea secventa de program:

write ('j='); readln (j);
write ('y='); readln (y);
while j<=8 do begin
y:=y*5;
j:=j+1;
end;
writeln (j, ',', y);

Cerinte:
a) Rescrieti urmatoarea secventa de program astfel incat sa folositi instructiunea REPEAT UNTIL.
b) Ce va afisa programul daca y=1 si j=6?
c) Care sunt valorile initiale pentru j si y daca programul afiseaza
10,5

PROBLEMA 2

violetalungescu — 2016-04-07 20:16:54 UTC

Folosind programul de calcul al sumei: S=1+2+3+...+n, unde n este numar natural citit de la tastatura:

program suma;
var S,i,n:integer;
begin
write('n='); readln(n);
S:=0;
for i:=1 to n do S:=S+i;
writeln('Suma este:', S);
readln;
end.

Scrieti un program care sa calculeze suma:
S=1/1+1/2+1/3+...+1/(n-1), unde n este numar natural citit de la tastatura.