<span>var
i:integer;
begin
i:=2;
while i<=100 do
begin
write (i,' ');
i:=i+2;
end;
end.</span>
На 1
странице досье
располагается 48х64х8= <span>24576
бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем
информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб.
Следовательно всего досье 46080 : 36 = 1280</span>
На каком именно языке программирования вы не написали!
Я решил задачу на паскале. Какие условия вы мне дали, с такими я и сделал.
program easy;
var
a,b,i:string;
begin
a:= 'Новый год';
b:= 'Женский день';
writeln('Введите дату');
read(i);
if i = '0.10.1' then
writeln(a);
if i = '0.80.3' then
writeln(b);
end.