1)Найдите сумму S=0.3+0.6+0.9+...+3 2) найдите произведение Р=1/20*1/18*1/16*...*1/2 **...

Question

1)Найдите сумму S=0.3+0.6+0.9+...+3
2) найдите произведение Р=1/20*1/18*1/16*...*1/2
На языке Паскаль с помощью команд REPEAT и WHILE. Помогите пожалуйста!

Answer 1

//Задание №1
//цикл repeat

var i,s:real;
begin
  s:=0;
  i:=0.3;
  repeat
     s:=s+i;
     i:=i+0.3;
  until i >= 3;
  writeln('Сумма ',s);
end.

//Задание №2
//цикл while

var p:real;
  i:integer;
begin
  p:=1;
  i:=20;
  while i>2 do begin
     p:=p*(1/i);
     i:=i-1;
  end;
  writeln('Произведение членов ряда ',p);
end.

Comments

Спасибо большое!