Дано:
Учеб - 200 стр
1 стр - 35 строк
1 строка - 50 символов
Решение:
1) 50*35=1750 (символов) - на одной странице
2) 1750*200=350000 (символов) - в учебнике
3) так как в задаче не указан метод кодировки, то будем использовать кодировку ASCII ( в ней 1 символ равен 1 байту, также есть кодировка UNICODE, в которой 1 символ равен 2 байтам).
Итак, 1 символ = 1 байту, тогда
350000*1=350000 (байт)
350000/1024 = 341,7 (Кб) - объём одного учебника.
4) переведём 2 Гб в Кб
2 Гб*1024 = 2048 (Мб)
2048*1024= 2 097 152 (Кб)
5) Разделим полученный объём на объём одного учебника:
2 097 152/341,7 = 6137 (учебников)
char - это 2 байта или 2*8=16 бит
Ответ: 16
Var i: Integer;
Begin for i := -20 to 20 do
if i mod 2 = 0 then write(i,' ');
<span>End.</span>
Ааааапааааааапппааааааааааввавввввваааааа
var
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
