Буду очень очень рад и благодарен тем, кто подкинет хоть какие-нибудь идеи:
Выполнить задания без хранения последовательности значений.
1. Дана непустая последовательность X ненулевых целых чисел, за которой следует 0. Вычислить величину:
s=(n-1)*x1+n*x2+...+2*xn+1 .
2. Задано натуральное число k. Определить k-ю цифру последовательности: 1525125625..., в которой выписаны подряд степени 5.
Вторая задача решается на основе "инварианта"... Блин, помню, что-то было про степени пятерки - найти никак не могу... Поищи по слову "инвариант"... Где-то точно была если не эта же, то очень похожая задача...
Вот тоже нечто похожее: http://forum.pascal.net.ru/index.php?s=&showtopic=1557&view=findpost&p=48703
ой, действительно немножко не так , вместо - в 1 слагаемом + :
s=(n+1)*x1+n*x2+...+2*xn+1
насчет k в задании ничего не сказано...
Задача: Нам надо ввести последовательность из N значений, и не сохраняя их вычислить
uses crt;
var
x, n, s: Integer;
begin
clrscr;
n := 1;
s := 1;
repeat
readln(x);
if x <> 0 then begin
inc(n);
s := s + x * n;
end;
until x = 0;
writeln('s = ', s);
readln;
end.
uses crt;
type
TFile = File of Integer;
procedure CreateFile;
var
f: TFile;
i: Integer;
begin
Assign(f, 'C:\f.int');
Rewrite(f);
// заполняем файл ...
for i := 1 to 5 do
write(f, i);
write(f, 0);
Close(f);
end;
function GetResult: Integer;
var
f: TFile;
X, i, s, n: Integer;
begin
Assign(f, 'C:\f.int');
Reset(f);
s := 1;
n := 1;
repeat
for i := 0 to n - 1 do begin
Seek(f, i);
Read(f, X);
s := s + x;
end;
inc(n);
until x = 0;
Close(f);
GetResult := s;
end;
begin
Clrscr;
CreateFile;
writeln(GetResult);
readln;
end.
program summ;
var Sum,sum1,x:integer;
begin
writeln('x?');
readln(x);
sum:=1;
sum1:=0;
repeat
sum:=sum+sum1+2*x;
sum1:=sum1+x;
writeln('x?');
readln(x);
until (x=0);
writeln;
writeln(sum);
end.
Да уж ... тупею ...
Все гениальное просто как говорится
Только сумма изначально = 1 А ты 0 поставила
Благодарю за интересные предложения
Попробую сдать)
принимаются дальнейшие варианты.