16.12.2009, 23:43
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714
Репутация:
29
|
|
Хватит оффтопа и флуда!
Сообщение от SinatoR
народ помогите плиз с пргой на оператор FOR
P=0.1*0.5*0.9...("*" умножить)
N=10
Код:
PROGRAM FOR_INC;
uses
CRT;
const
n = 10;
var
tmp: real;
result: real;
i: byte;
begin
clrscr;
result := 1;
tmp := 0.1;
for i := 1 to n do
begin
result := result * tmp;
tmp := tmp + 0.4;
end;
writeln('Result: ', result:2:2);
readln;
end.
|
|
|