...А если интересует решение на классическом Паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.
Обрати внимание! longint может хранить значения только до 
, поэтому конкретно в этой программе вывод будет достоверным только для N ≤ 46. Ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение N возрастёт до 92. Для бОльших N тебе придётся писать длинное сложение.
var
i, n, pred, predpred, cur: longint;
begin
read(n);
if n = 1 then writeln(1)
else if n = 2 then writeln('1 1')
else write('1 1 ');
if n < 3 then exit;
pred := 1;
predpred := 1;
for i := 3 to n do
begin
cur := pred + predpred;
write(cur, ' ');
predpred := pred;
pred := cur;
end;
writeln;
end.
begin
var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]);
var n : = readinteger('n-> ');
for var i : = 4 downto 0 do
begin
k[i] : = n div t[i]; n : = n mod t[i];
end;
if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end;
if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then
begin
k[0] : = 0; k[1] : = 0; inc(k[2]);
end;
if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then
begin
k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]);
end;
if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then
begin
k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]);
end;
for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.
пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)
пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
ответ:
объяснение:
информационная культура — это умение целенаправленно работать с информацией и использовать для ее получения, обработки и передачи компьютерную информационную технологию, современные технические средства и методы.
для свободной ориентации в информационном потоке человек должен обладать информационной культурой как одной из составляющих общей культуры. информационная культура связана с социальной природой человека. она является продуктом разнообразных творческих способностей человека и проявляется в следующих аспектах:
♦ в конкретных навыках по использованию технических устройств, от телефона до персонального компьютера и компьютерных сетей;
♦ в способности использовать в своей деятельности компьютерную информационную технологию, базовой составляющей которой являются многочисленные программные продукты;
♦ в умении извлекать информацию из различных источников, как из периодической печати, так и из электронных коммуникационных систем, представлять ее в понятном виде и уметь эффективно использовать;
♦ во владении основами аналитической переработки информации;
♦ в умении работать с различной информацией;
♦ в знании особенностей информационных потоков в своей области деятельности.
неотъемлемой частью информационной культуры является знание информационной технологии и умение применять ее в своей деятельности как для автоматизации рутинных операций, так и для неординарных ситуаций, требующих нетрадиционного творческого подхода.
основными факторами развития информационной культуры являются:
♦ система образования, определяющая общий уровень интеллектуального развития людей;
♦ информационная инфраструктура, определяющая возможности людей получать, передавать, хранить и использовать информацию;
♦ развитие страны, определяющей материальные возможности людей при использовании современных информационных технических средств: компьютеров, телевизоров, электронных средств коммуникации и т. п.
одним из существенных показателей информационной культуры в нашей стране является знание языка. сложившаяся ситуация в компьютерной индустрии такова, что практически все современные версии программных продуктов, определяющих информационную технологию, представлены на языке. на этом языке реализуется интерфейс пользователей с основными информационных ресурсов, осуществляется профессиональное взаимодействие с операционными системами компьютеров. в большинстве областей науки, бизнеса и технологий также доминирует язык.
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
И это - всё !