/ - разделить
* - умножить
Задача 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
через 3 пары:
1. Перенесли назад Т, осталось Амара, а убрали, осталось Мара
2. Перенесли назад М, осталось Ара, а убрали, осталось Ра
3. Перенесли назад Р, осталось А, а убрали , ничего не осталось
Да, тут уже до меня решили правильно, а я про согласные, которые переносили в конец слова, не писала, тк там А не было.
Const m=3; n=4;
b:array[1..m,1..n] of real=
((-3.3,-1.6,5.7,4.3),(7.6,15.2,-9.1,-3),(-8.6,-3.7,1.3,-0.1));
var c:array[1..n] of real;
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do write(b[i,j]:7:2);
writeln;
end;
for j:=1 to n do c[j]:=1;
for j:=1 to n do
for i:=1 to m do
if b[i,j]<0 then c[j]:=c[j]*b[i,j];
writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
<span>end.
</span>
Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.