Var A,B,N:integer;
S:real;
Begin
A:=0;
B:=1;
Write('N = ');
ReadLn(N);
if N<0 then Write('Введите положительное число')
else
   Begin
   While A<N do
      Begin
      S:=S+A;
      A:=A+B;
      Swap(A,B);
      Write(A,' ');
      End;
   WriteLn;
   WriteLn('S = ',S)
   End;
End.

Пример:
N = 10000
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
S = 17710

Примечание:
Условие немного некорректно, т.к.
1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу, которая определяет однозначные, двухзначные, трехзначные, четырехзначные или пятизначныеЯзык: ABCPascal

JimPhillips41 [9]

var a,b:integer; {a-число, b-количество знаков числа}

begin

readln(a);

while a<>0 do

begin

b:=b+1;

a:=a div 10;

end;

writeln(b);

end.

0 0

3 года назад

Выберите правильную последовательность операторов в приведенном ниже алгоритме получения суммы цифр натурального трехзначного чи

tommskater96 [68]

Корень раве аб или бс в квадрате.переменные описаны целым типом данных.
1)Cin>>a
2)a/=10
3)b=a\%10
4)c=2\%10
<span>5)cout<<(a/10+b+c)ит</span>

0 0

4 года назад