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