// pascalabc.net 3.2, сборка 1439 от 09.05.2017 var n: integer; function tri(n: integer): longint; begin case n of 0,1: tri : = 0; 2: tri : = 1 else tri : = tri(n - 3) + tri(n - 2)+tri(n-1); end; end; var a: array of integer; i: longint; begin readln(n); setlength(a, n); for i : = 0 to n-1 do write(tri(i) + ' '); for i : = 0 to n-1 do a[i] : = tri(i); writeln(''); for i : = 0 to n-1 do if a[i] mod 3 = 0 then write(a[i] + ' '); end.
lovel24
18.02.2023
Памяти
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Текст длиной 57344 символов закодирован с алфавита, содержащего 32 символа.сколько килобайт занимает в памяти этот текст?