Задача 1
1) 0.0002441 КБ=0.25 Б=2 бит
2)1.5 ГБ=1536 МБ=1572864 КБ
3)512 КБ=2^(16) Б=2^(21) бит
Задача 2
Переводим все у биты, чтоб удобно было сравнивать.
1024×8=8192 бит
8000000>8192>106
Из этого выходит, что вариант 1 является правильным.
Задача 3
1.44 МБ×1024=1474,56 (КБ) - обьем дискеты
1474,56:600=2.5
На дискете полностью вместятся 2 книги.
420 МБ×1024=430080 (КБ) - обьем flash-носителя
430080:600=716,8
На flash-диске полностью поместится 716 книг.
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
У тебя всё правильно расставлено. Очевидно, что двое ребят будут только болельщиками (те, кто не умеет играть ни в шашки, ни в шахматы), а для шести шахматистов понадобится 3 набора шахмат - на каждых двоих по набору. Закрашиваешь так: только в шашки - круг без пересечения с квадратом; только в шахматы - квадрат без пересечения с кругом; в шашки и шахматы - пересечение круга и квадрата; только болельщики - часть овала без круга и квадрата.
Const
maxn = 4;
maxm = 5;
type
myarr = array [1..maxn, 1..maxm] of longint;
var
a: myarr;
sum, i, j: longint;
begin
for i := 1 to 4 do begin
for j := 1 to 5 do begin
a[i, j] := i * j;
write(a[i, j], ' ');
end;
writeln;
end;
sum := 0;
for j := 1 to 5 do begin
for i := 1 to 4 do
if (a[i, j] mod 3 = 0) then
sum := sum + a[i, j];
writeln('Сумма чисел, кратных 3, в ', j, ' столбце равна ', sum);
sum := 0;
end;
end.