// Задача решается длинной арифметикой VAR a,b,c: String; i, s: LongInt;
Procedure Sum(var a, b: String); Var i, p, c1,c2: LongInt; Begin while (Length(a) < Length(b)) do a := '0' + a; while (Length(b) < Length(a)) do b := '0' + b;
p := 0; for i := Length(a) downto 1 do begin c1 := Ord(a[i]) - 48; c2 := Ord(b[i]) - 48;
a[i] := Chr(48 + (c1 + c2 + p)mod 10); p := (c1 + c2 + p) div 10; end;
if (p > 0) then a := Chr(p + 48) + a; End;
BEGIN a:= '2013'; b:= '2014';
for i := 3 to 2014 do begin Sum(a, b); c := a; a := b; b := c; end;
Writeln(c);
s := 0; for i := 1 to Length(c) do s := s + Ord(c[i]) - 48;
Writeln('Сумма цифр числа = ', s); END.
ksv89
05.02.2020
Информатика-это наука,изучающая виды информации её получения,хранения и передачи. География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается. Фонетика-это раздел науки о звуках русского языка Ботаника-это раздел науки о изучении растений Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства. Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Перед тобой число в двоичной системе Укажите какое это число в десятичной системе 110
110 в двоичной системе это 6 в десятичной.
можно представить как 4+2.
4 это 2 в квадрате, а 2 это 2 в первой.