Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Планирование эксперимента / PLAN.EXP / LAB5
.PAS var A,S,k : Real;
prevk : real;
n,i : integer;
begin
write('K = '); readln(k);
write('N = '); readln(n);
i := 1;
s := 1;
prevk := 1;
while i <= n do
begin
prevk := prevk*k;
S := S+prevk;
i := i+1;
end;
writeln('SUMMA = ', S);
end.
prevk : real;
n,i : integer;
begin
write('K = '); readln(k);
write('N = '); readln(n);
i := 1;
s := 1;
prevk := 1;
while i <= n do
begin
prevk := prevk*k;
S := S+prevk;
i := i+1;
end;
writeln('SUMMA = ', S);
end.
Соседние файлы в папке PLAN.EXP