Данное двоичное число переводим в десятичную систему счисления 2^0+2^2+2^5+2^6=101 .. всего 2 единицы))
Блок-схема (с циклом) - в прилагаемом файле.
Программа (с циклом):
var n,m,m1,s,i:integer;
begin
readln(n,m);
m1:=m*60;
s:=m1;
for i:=2 to n do
begin
m1:=m1+10;
s:=s+m1
end;
writeln('s = ',s div 60,' час ',s mod 60,' мин');
end.
Пример:
5 2
<span>s = 11 час 40 мин</span>
Ответ:
27.3 %, 72.7%
Объяснение:
1. Найдем объем, занятый файлами
1.12 Гб + 1.05 Гб + 17 Мб = 2.17 + 17 / 1024 Гб ≈ 2.1866 Гб
2. Найдем, какую часть в процентах составляет занятый объем от полного
2.1866×100/8 ≈ 27.3 %
3. Заполненная часть составит 100 - 27.3 = 72.7%
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.