Если а>=х то хватит.
а если не хватит, то нужно добавить х-а рублей
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
Процессор — это «мозг» компьютера. Процессором называется устройство, способное обрабатывать программный код и определяющее основные функции компьютера по обработке информации.
Конструктивно процессоры могут выполниться как в виде одной большой монокристальной интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат и устройств.
Чаще всего процессор представлен в виде чипа, расположенного на материнской плате. На самом чипе написана его марка, его тактовая частота (число возможных операций, которые он может выполнить в единицу времени) и изготовитель.
В настоящее время микропроцессоры и процессоры вмещают в себе миллионы транзисторов и других элементов электронной логики и представляют сложнейшие высокотехнологичные электронные устройства. Персональный компьютер содержит в своем составе довольно много различных процессоров. Они входят в состав систем ввода/вывода контроллеров устройств. Каждое устройство, будь то видеокарта, системная шина или еще что-либо, обслужизается своим собственным процессором или процессорами. Однако архитектуру и конструктивное исполнение персонального компьютера определяет процессор или процессоры, контролирующие и обслуживающие системную шину и оперативную память, а также, что более важно, выполняющие объектный код программ. Такие процессоры принято называть центральными или главными процессорами (Central Point Unit — CPU).
Фильм длится 60+60+15=135минут*60=8100секунд*2152кбит/с=17431200 кбит. Переводим в биты (то есть умножаем еще на 1000) получаем 17431200000 бит
90 Мбит/с переводим в биты (Умножаем на 1.000.000) получаем 90000000 бит.
Время затраченное на скачивание 174312000000/90000000=193,68 секунды.
P.s Преставки Кбит, Мбит, Гбит:
1 Кбит = 1000бит
1 Мбит = 1000000бит
1 Гбит = 1000000000бит
Var n, i: integer;
begin
n := 0;
for i := 1 to 9999 do
if i mod 10 + i div 10 mod 10 = i div 100 mod 10 + i div 1000 then
n := n + 1;
writeln(n);
<span>end.</span>