Напишите на паскале. : среди первых n чисел трибоначчи вывести на экран только кратные 3.
224
274
Ответы на вопрос:
// 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.
// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! function tribonacci(n: integer): integer; begin case n of 0,1: result: =0; 2: result: =1; else result: =tribonacci(n-3)+tribonacci(n-2)+tribonacci(n-1) end end; begin seqgen(readinteger('n='),i-> tribonacci((k-> k mod 3=0).println end. пример n= 20 0 0 24 81 504 927
1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?
2)что означает слово window с ?
белая смерть?
4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?
5)что маслом не испортишь?
6)транспортное средство,предназначеное для движения по рельсам?
рис
окно
соль
ветка
каша
вагон
Популярно: Информатика
-
sabr1nka01.07.2021 01:20
-
Jezzyfeed109.07.2021 17:12
-
Lraaq21.10.2020 18:39
-
kirill99407.01.2021 08:58
-
fatimo4kkkka09.07.2022 11:25
-
bogdanshik00719.12.2022 00:11
-
Anton22266622213.09.2022 23:41
-
dumargarita22.10.2022 09:32
-
Зайчутка17.08.2022 16:02
-
Оленка12468313.02.2023 13:22