Question

1) написать программу, которая считает сумму, в pascal abc 1+1/2+1/3++1/28, используя цикл while 2) написать программу, которая считает сумму, в pascal abc 1+1/2+2+1/3+3+1/+1/10+10, используя цикл while 3) написать программу, которая считает сумму, в pascal abc 1-2+3-4+, используя цикл while решите хотя бы две,

Answer 1

1)

var i,a:integer;

c:real;

begin

i:=1;

c:=0;

while i<=28 do begin

c:=c+1/i;

i:=i+1;

end;

writeln(c);

end.

2)

var i,a:integer;

c:real;

begin

i:=2;

c:=1;

while i<=10 do begin

c:=c+1/i+i;

i:=i+1;

end;

writeln(c);

end.

3)

var c,i:integer;

begin

c:=0;

i:=1;

while i<=28 do begin

if i mod 2 = 1 then c:=c+i else c:=c-i;

i:=i+1;

end;

writeln(c);

end.