Вычислить произведение P=1,1*1,2*1,3*1,4...2 С помощью программы Pascal. Пожалуйста)!
Вычислить произведение P=1,1*1,2*1,3*1,4...2
С помощью программы Pascal. Пожалуйста)!
Гость
Ответ(ы) на вопрос:
Гостьvar i,k:integer;
p:real;
begin
k:=1;
for i:=1 to 9 do
begin
p:=p*(1+(k/10));
k:=k+1;
end;
p:=p*2;
writeln(p)
end.
Не нашли ответ?
Похожие вопросы