1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
Var n,k,m,p: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=0; p:=0;
</span><span> while k<n do
</span><span> begin
</span><span> read(m);
</span><span> if m mod 3 = 0 then p:=p+1;
</span><span> k:=k+1;
</span><span> end;
</span><span> writeln('количество чисел, кратных 3: ',p);
</span><span>end.
</span>n = 6
<span>10 -13 14 -15 21 23
</span><span>количество чисел, кратных 3: 2
</span>
/ - разделить
* - умножить
Задача 1
Пусть жесткий диск будет 500Гб
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 500Гб = 16 * 1024 * 1024 * 1024 байт = 17 179 869 184 байт
Кол-во страниц S = M / T = 17 179 869 184 байт / 2400 байт = 7 158 278.82666667
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 7 158 278
Высота стопки h = S / 100 * 1см = 71 582.78 см = 715.8278 м ~ 0.7 км
Задача 2
Объем DVD M = 4.7*1024*1024 Кб = 4 928 307.2 Кбайт
Всего фото на диске N = M / 500Кбайт = 4 928 307.2 Кбайт / 500Кбайт = 9 856.6144 ~ 9 856 (округлили до целых)
Время просмотра t = N * 5c = 49 280 c = 13.6(8) часов
Задача 3
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 16 Кбайт = 16 * 1024 байт = 16384 байт
Кол-во страниц S = M / T = 16384 байт / 2400 байт = 6.8266666666666
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 6
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
else begin
Write('Номера нечетных элементов, кратных 7: ');
aInd.Select(i->i+1).Println(',')
end
end.
<u>Пример</u>
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9
Задание 13 делим столбиком - остатки записываем в обратном порядке
а) 513(10) = 1001(8)
513/8 64/8 8/8
1 0 0 1 - записываем в обратном порядке(но в данном случае без разницы))))
б) 600(10) = 1130(8)
600/8 75/8 9/8
0 3 1 1 - записываем в обратном порядке
в) 2010(10) = 3732(8)
Задание 14
а) 201(16)
б) 258(16)
в) 7DA(16)
7 = 7 :D, D - 13, 10=A
Задание 15
101010 | 52 | 42 | 2A
1010111 | 127 | 87 | 57
101000001 | 501 | 321 | 141
101010 | 52 | 42 | 2A
