program znanija;
var
t:integer;
begin
readln(t);
if (t>=0)and(t<6) then
writeln('Ночь');
if (t>=6)and(t<12) then
writeln('Утро');
if (t>=12)and(t<18) then
writeln('День');
if (t>=18)and(t<=24) then
writeln('Вечер');
end.
1) Примерно 41 фильм.
2) 121 аудиокнигу.
3) Не понимаю суть вопроса, если сколько уместится - то вы сами ответили. Причем тут скорость - не понимаю. Если песня занимает 1 мб, то на флэш-накопитель объемом 16 гб поместится 16384 песен (Как правило, меньше)
(1 гб = 1024 мб, 16*1024 = 16384)
4) Вопрос некорректен - не указан объем флэш-накопителя.
var
x: real;
cost: real; //Стоимость капитала
i: integer;
begin
cost:= 20; //Начальная стоимость равна 20
writeln('Введите ежегодный прирост в процентах');
readln(x); //Вводим ежегодный прирост в процентах
for i:= 1626 to 2012 do {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost:= cost + cost * (x / 100);
writeln('Стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {Выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
Отметь решение как лучшее)
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadReal/3:0:3)
end.
<u>Примеры</u>
1
0.333
2
0.667