Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N. Округлить результат до двух знаков после запятой.

Program Summa;

Var   S:real;

 N:integer; 

Begin   S:=0;

N:=0;  

 repeat     N:=n+1;    

 S:=s+1/n   Until n>1000;  

 Writeln(s:0:2);

 End.

   

       Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$.

program c1;

var dr,pod:

integer;

begin pod:=1;

dr:=1; while pod<=100 do begin pod:=(pod*2)+dr;

 dr:=dr+1;

end;

 write('Возраст= ',dr);

end. 

Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 30.

program c2;

var sum:real;

n:real;

BEGIN sum:=0;

n:=1;

while n < =30 do begin sum:=sum+n;

n:=n+0.5;

end;

 writeln('Сумма равна: ',sum);

END.

Напечатать столбиком все целые числа от а до b (значения а и b вводятся с клавиатуры).

Program C7; 

var a,b,i:integer; 

begin

 readln(a,b); 

for i:=a to b do writeln(i) 

end.