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

1)Найдите сумму S=0.3+0.6+0.9+...+3 2) найдите произведение Р=1/20*1/18*1/16*...*1/2 На языке Паскаль с помощью команд REPEAT и WHILE. Помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гость
//Задание №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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы