Program cb;
var
n, i: integer;
begin
write('n = ');
readln(n);
for i := 1 to n do
writeln(i * i * i);
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2('Введите границы диапазона a и b:');
var (s, n) := (0, 0);
for var x := a to b do
if x.IsOdd and (x mod 5 <> 0) then (s, n) := (s + x, n + 1);
Println(s / n)
end.
<h2>Пример</h2><h3>Введите границы диапазона a и b: 15 149</h3><h3>82.5185185185185 </h3>
Ответ:
Объяснение:
красный свет стой жёлтый свет пригатовся зелёный свет иди )))
Дано:
Продолжительность фильма t=60 сек., разрешение монитора 800х600 пикселей, n - кол-во цветов 65536, s- частота 16 кадр/сек.
Найти V - Объем файла.
Решение:
1. Определим глубину цвета i по формуле: n=2^i = 65536 =2^i i= 16 бит на пиксель
2. Размер одного кадра R = Разрешение монитора* i= 800*600*16 = 7680000 бит.
3. Тогда объем памяти одноминутного фильма равен V=R*s*t = 7680000*16*60= 7372800000 бит
7372800000/8 = 921600000 байт
921600000/1024= 900000 Кбайт
900000/1024= 878,9 Мбайт
Ответ: Объем памяти равен 878,9 МБ