Циклы

1)Найти сумму цифр заданного целого числа числа

var

n,k,s:integer;

begin

writeln(‘введите число’);

readln(n);

s:=0;

k:=n;

while k<>0 do begin

s:=s+(k mod 10);

k:=k div 10;

end;

writeln(‘сумма чисел равна’,s);

readln;

end.

2) Вычислить:  (1+sin0.1)(1+sin0.2)...(1+sin10)

var

p,i:real;

begin

p:=1;

i:=0.1;

while i<=10 do begin

p:=p*(1+sin(i));

i:=i+0.1;

end;

writeln(‘произведение равно ’,p:10:8);

readln;

end.

4) Вычислить:  sin(x) +sin(x)² +sin(x) ³ + ...+sin(х) ^N

var

a,x,s:real;

n,k:integer;

  procedure aa(x:real;k:integer; var a:real);

  var

  i:integer;

  begin

  i:=1;

  a:=1;

  while i<=k do begin

  a:a*sin(x);

  i:=i+1;

  end;

  end;

begin

writeln(‘введите  x и n’);

readln(x,n);

s:=0;

for k:=1 to n do begin

aa(x,k,a);

s:=s+a;

end;

writeln(‘сумма равна ’,a:10:8);

readln;

end.

5) Пусть , , где  задано. Найдите сумму всех положительных чисел . 

var

a,s:real;

i,n:integer;

  procedure aaa(i:integer; var a:real);

  begin

  a1:=(i-1)/(i+1)+sin(sqr(i-1)*(i-1)/(i+1));

  end;

begin

writeln(‘введите n’);

readln(n);

s:=0;

aa(1,a);

i:=1;

While (i<=n) and (a>0)

aa(i,a);

s:=s+a;

end;

writeln(‘сумма равна ‘,s-a:10:8);

readln;

end.

6)Пусть дано натуральное число  и вещественное число . Вычислите:

var

n,i:integer;

x,s:real;

  function fuc(i:integer):integer;

  var

  k,f:integer;

  begin

  f:=1;

  for k:=1 to i do begin

  f:=f*k;

  end;

  fuc:=f;

  end;

begin

writeln(‘введите n и x’);

readln(n,x);

s:=0;

while i<=n do begin

s:=s+(1/fuc(i)+sqrt(abs(x)));

i:=i=1;

end;

writeln(‘сумма равна ’,s:10:8);

readln;

end.