помогите решить 2 задачи

[давид меликянц]

1
дано натуральное число n(n<=10^1000) необходимо вычислить сумму 1+2+3+,,,+n
во входном файле n
в выходном ответ на задачу
2
заданному числу n определить количество пар простых чисел(р1,р2) таких что их сумма не превосходит n и является простым числом
во входном файле число n(1<=n<=10000)
в выходном файле ответ на задачу

[Tkirill]

uses crt;
var
n,sum,i:longint;
fil:text;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
readln(fil,n);
close(fil);
assign(fil,'c:\out.txt');
rewrite(fil);
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln(fil,sum);
close(fil);
readln;
end.

[Tkirill]

uses crt;
var
mas:array[1..10000] of integer;
fil:text;
n,i,j,k,l:integer;
kol:longint;
f:boolean;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
readln(fil,n);
k:=0;
for i:=2 to n do
begin
f:=true;
for j:=2 to round(i/2) do
if i mod j=0 then f:=false;
if f then begin k:=k+1; mas[k]:=i; end;
end;
kol:=0;
close(fil);
assign(fil,'c:\out.txt');
rewrite(fil);
for i:=1 to k-1 do
begin
for j:=i+1 to k do
begin
f:=true;
for l:=2 to (mas[i]+mas[j]) div 2 do
if (mas[i]+mas[j]) mod l=0 then f:=false;
if (f) and ((mas[i]+mas[j])<=n) then kol:=kol+1;
end;
end;
writeln(fil,kol);
close(fil);
readln;
end.

[давид меликянц]

Сообщение от Tkirill

uses crt;
var
n,sum,i:longint;
fil:text;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
readln(fil,n);
close(fil);
assign(fil,'c:\out.txt');
rewrite(fil);
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln(fil,sum);
close(fil);
readln;
end.

спасибо!
но на большие значения не проходит!
если можешь подправь плиз!

[capta1n]

кстати не все так просто для больших значений - сча я придумаю

PS: оказалось не очень сложно, просто для больших значений программа ой как долго будет выполняться

[capta1n]

{$N+}
program natur;
var
 number,sum,i : extended;
begin

  assign (input,'input.txt');
  assign (output,'output.txt');
  reset (input);
  readln (number);
  close (input);

  i:=0;
  sum:=0
  repeat
    i:=i+1;
    sum:=sum+i
  until i=number;

  rewrite (output);
  writeln (sum);
  close (output);
end.

Директива {$N+} включает математический соцпроцессор ( это для таких больших чисел, которые поддерживает extended ) - вот

[давид меликянц]

Сообщение от Tkirill

uses crt;
var
mas:array[1..10000] of integer;
fil:text;
n,i,j,k,l:integer;
kol:longint;
f:boolean;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
readln(fil,n);
k:=0;
for i:=2 to n do
begin
f:=true;
for j:=2 to round(i/2) do
if i mod j=0 then f:=false;
if f then begin k:=k+1; mas[k]:=i; end;
end;
kol:=0;
close(fil);
assign(fil,'c:\out.txt');
rewrite(fil);
for i:=1 to k-1 do
begin
for j:=i+1 to k do
begin
f:=true;
for l:=2 to (mas[i]+mas[j]) div 2 do
if (mas[i]+mas[j]) mod l=0 then f:=false;
if (f) and ((mas[i]+mas[j])<=n) then kol:=kol+1;
end;
end;
writeln(fil,kol);
close(fil);
readln;
end.

и за эту спасибо но на большые числа она тоже не проходит по времяни 2 сек!

[давид меликянц]

спасибо большое!

[capta1n]

не за что, только отзыв оставь xD - про директиву не забудь {$N+}

[Tkirill]

Слушайте, а тут может надо типизированные файлы использовать. В них операции записи\чтения быстрее выполняются.