Комментарий удален
Комментарий удален
Комментарий удален
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.
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.

Ответы и объяснения

  • Участник Знаний
2014-03-30T09:34:53+00:00
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.
Комментарий удален
Комментарий удален