Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
Var
f1, f2, i, j: integer;
a, b: array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
f1 := 0;
f2 := 0;
for i := 1 to 5 do
begin
if (i = 3) then
continue
else
inc(f1);
f2 := 0;
for j := 1 to 5 do
if (j = 3) then
continue
else
begin
inc(f2);
b[f1][f2] := a[i][j];
end;
end;
end.
П.5 - в целом правильно. Можно было, правда, перевести в мегабайты, их сразу поделить на 8, а потом дальше уже переводить в килобайты и байты (числа промежуточные были б чуть поменьше, но это мелочь).
Придраться могут к первой строчке решения - суть в ней правильная, а вот запись математически не совсем корректна.
<span>Формально 36 Гб * 1024 = 36 Тб, а не то что записано у вас. Я бы подправил так:
36 Гб = (36 * 1024) Мб = </span>36864 Мб = (36864 * 1024) кБ = и т. д.
п.4 - всё правильно. Разве что первую строку подробней расписать (чтоб у проверяющего не осталось сомнений, что вы понимаете как получилось это число):
4 Мб = (4 * 1024 * 1024) байт = <span>4194304 байт
п.2 - тут есть вопрос. Вы исходите из того что книга на русском языке, без буквы ё, например, без пробелов и без знаков препинания (N=32).
Дальнейшее решение (исходя из этого предположения) - правильное до момента пересчета в килобайты, мегабайты, гигабайты. В килобайтах вы округлили (на мой взгляд применение округления здесь правильно, но есть повод придраться), а дальше неправильно посчитали 274 / 1024 = 0,267, а не 0,7.
"Историческая" мелочь насчет округления: вы округлили по правилам арифметики - до ближайшего целого. Исторически (из-за чего собственно в килобайте 1024 байта, а не 1000) чтобы не делать честное деление делали сдвиг на 10 разрядов вправо (аналог деления на 2^10, то есть на 1024). При сдвиге младшая часть "пропадает", поэтому округление получается всегда в меньшую сторону, а не честное арифметическое.
Однако, из условия задачи никак не следует что типов символов всего 32 (алфавит вообще не оговорен, а значит для решения не хватает данных). В общем ход решения у вас правильный, а вот к начальному предположению можно придраться при желании.</span>
1)
64*16*256 = 262144байт (Не умножал на 8 бит, т.к потом в любом случае делить на 8, чтобы получить байты)
262144:1024=256 кБайт
Ответ: Размер статьи 256 килобайт
2)
40*48*24*2 = 92160байт (16 бит 1 символ, далее пришлось бы делить на 8, отсюда *2)
92160:1024 = 90кБайт
Ответ: Информационный объём статьи 90 килобайт
1248849018880. Лррлопопопооплппо
