1. Определим, какой информационный объём занимает одна страница. Если считать, что используется кодировка ASCII, в которой каждый символ занимает один байт, то 64 символа, помещающиеся на одной странице займут 64 байта. 2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы. 3 КБ = 3 х 1024 Б = 3072 Б. 3072 / 64 = 48 (страниц) 3. Определим, сколько всего потребуется листов бумаги. Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .
2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы.
3 КБ = 3 х 1024 Б = 3072 Б.
3072 / 64 = 48 (страниц)
3. Определим, сколько всего потребуется листов бумаги.
Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .
ответ: 336 листов
//Задача 1
begin
var a := ArrRandom(20, -20, 20).Println;
Println(a.Min, ' ', a.Max);
end.
//Задача 2
begin
var a := ReadArrInteger(10);
a.Where(p -> p.IsOdd).Count.Println;
end.
//Задача 3
begin
SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;
end.
//Задача 4
begin
ArrRandom(10,-20,20).Println;
end.
//Задача 5
begin
var (a, b) := ReadInteger2;
Range(a, b).Product.Println
end.
//Задача 4
var
n, i, sum, count: integer;
begin
Writeln('Введите число: ');
Readln(n);
count := 0;
while n <> 0 do
begin
i := n mod 10;
sum += i;
count += 1;
n := n div 10;
end;
Writeln('Сумма цифр: ', sum);
Writeln('Количество: ', count);
end.
//Задача 7
var
n, i, sum, count: integer;
begin
Writeln('Введите число: ');
Readln(n);
count := 0;
while n <> 0 do
begin
i := n mod 10;
if not Odd(i) then count += 1;
n := n div 10;
end;
if count <> 0 then Writeln('True')
else Writeln('False');
end.
Задача 8
begin
var n := ReadInteger;
for var i := 1 to n do
begin
Println('Я НЕ учусь программировать');
end;
end.