У каждого учителя почему-то по-разному все обозначается (по крайней мере у меня было именно так). В скобках пояснение.
Дано:
40 строк
60 символов
i (объем одного символа) = 8 бит = 1 байт
V (общий объем) = 16 Кб
Страницы - ?
16 Кб = 2^4 Кб = 2^14 байт (со степенями двойки проще такие задачи решать, если знаешь своства степеней)
V = K (кол-во символов) * i
K = V/i
K = 2^14 байт/1 байт = 2^14 символов
(Общее число символов в тексте находится умножением страниц на строчки и на кол-во символов в строке)
x - кол-во страниц
x = 2^14/40*60 = 2^14/5*2^3*4*5*3 = 2^9/5*5*3 = 6,8 страниц
ответ: 6,8 страниц
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
type
TRAIN = record
ПунктНазначения: string;
НомерПоезда: string;
ВремяОтправления: DateTime
end;
procedure ВводДанных(Список: List<TRAIN>);
begin
var Поезд: TRAIN;
var ЧЧММ: string;
for var i := 1 to 6 do // 6 поездов
begin
Println('Ввод данных о поезде', i);
Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');
Поезд.НомерПоезда := ReadlnString('Номер поезда:');
repeat
ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');
until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);
Список.Add(Поезд)
end
end;
procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);
begin
var Отобрано:=
Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);
if Отобрано.Count>0 then
foreach var Поезд in Отобрано do
Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')
else
Println('Нет поездов на это направление')
end;
begin
var Поезда := new List<TRAIN>;
ВводДанных(Поезда);
ПоискПоездов(Поезда,ReadlnString('Куда едем?'))
end.
var
i, j: integer;
begin
for i := 1 to 9 do
begin
for j:= 1 to 9 do
Write((i *j):4);
WriteLn;
end;
end.