// PascalABC.NET 3.0, сборка 1076 const n=20; { количество дат } type TDate=record d:1..31; m:1..12; y:word end; var dates:array[1..n] of TDate; i:byte; s,st:string;
begin Randomize; for i:=1 to n do begin s:=''; With dates[i] do begin d:=Random(27)+1; Str(d,st); if Length(st)=1 then st:='0'+st; s:=s+st+'.'; m:=Random(12)+1; Str(m,st); if Length(st)=1 then st:='0'+st; s:=s+st+'.'; y:=Random(51)+1960; Str(y,st); s:=s+st; if m in [3..5] then s:=s+' - весенняя'; Writeln(s) end end end.
Кодировка какая? Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта Строка: 60 символов по 16 бит = 960 бит 60 символов по 2 байта = 120 байт Страница: 40 строк по 960 бит = 38400 бит 40 строк по 120 байт 4800 байт Учебник: 288 страниц по 38400 бит = 11059200 бит 288 страниц по 4800 байт = 1382400 байт ответ: 11059200 бит, 1382400 байт
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт Строка: 60 символов по 8 бит = 480 бит 60 символов по 1 байту = 60 байт Страница: 40 строк по 480 бит = 19200 бит 40 строк по 60 байт = 2400 байт Учебник: 288 страниц по 19200 бит = 5529600 бит 288 страниц по 2400 байт = 691200 байт ответ: 5529600 бит, 691200 байт
const
n=20; { количество дат }
type
TDate=record
d:1..31;
m:1..12;
y:word
end;
var
dates:array[1..n] of TDate;
i:byte;
s,st:string;
begin
Randomize;
for i:=1 to n do begin
s:='';
With dates[i] do begin
d:=Random(27)+1;
Str(d,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
m:=Random(12)+1;
Str(m,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
y:=Random(51)+1960;
Str(y,st);
s:=s+st;
if m in [3..5] then s:=s+' - весенняя';
Writeln(s)
end
end
end.
Тестовое решение:
22.12.1979
21.10.1975
25.03.1980 - весенняя
23.04.1967 - весенняя
09.10.1967
16.05.1965 - весенняя
09.08.1996
05.10.2001
10.11.1985
18.08.1970
08.10.1983
01.12.2005
01.01.1994
09.11.1962
14.09.1979
24.03.2008 - весенняя
14.01.2003
22.04.1990 - весенняя
18.08.1969
16.05.2009 - весенняя