Составить программу в Паскале

+ 0 -

Алик2013

14 июня 2013 г., 2:26:32 (10 лет назад)

n, m, s, i:integer;
a:array[1..10000] of integer;
begin
readln(m);
a[1]:=1;
a[2]:=1;
for i:=3 to m+1 do
a[i]:=a[i-1]+a[i-2];
for i:=1 to 1000 do
if s<1000 then s:=s+a[i];
writeln(s);
writeln(a[m+1]);
readln;
end.

+ 0 -

132456lena

14 июня 2013 г., 3:43:28 (10 лет назад)

Комментарий удален

+ 0 -

миша06

14 июня 2013 г., 4:32:59 (10 лет назад)

Комментарий удален

+ 0 -

Lgim1965

14 июня 2013 г., 7:26:17 (10 лет назад)

Комментарий удален

+ 0 -

Dasha3245

14 июня 2013 г., 8:56:45 (10 лет назад)

1)
var m,n,fn,fn1,fn2:integer;
begin
write('Введите число m: ');
readln(m);
fn2:=1;
fn1:=1;
n:=1;
repeat
fn:=fn1+fn2;
fn2:=fn1;
fn1:=fn;
n:=n+1;
until fn>m;
writeln('n=',n,'; f=',fn)
end.

+ 0 -

Lattim

14 июня 2013 г., 9:48:44 (10 лет назад)

2)
var s,fn,fn1,fn2:integer;
begin
fn2:=1;
fn1:=1;
s:=2;
repeat
fn:=fn1+fn2;
if fn<1000 then s:=s+fn;
fn2:=fn1;
fn1:=fn;
until fn>1000;
writeln('Сумма чисел меньших 1000: ',s)
end.