Легко решается. Площадь фото 10 см*15 см = 150 кв.см.
Каждый 1 кв.см. = 600 точек, значит всего 600*150 = 90000 точек.
Каждая точка кодируется 4 битами (16 цветов, если что), то есть 0,5 байта.
Объем памяти V = 0,5*90000 = 45000 байт = 45000/1024 ~ 44 Кбайта
Так как мощность алфавита 128 символов, то на 1 символ нужно
log(2)128=7 бит
Кол-во информации в тексте:
800*7 бит = 800*7/8 байт = 700/1024 Кбайт ≈ 0,5 Кбайт
Var a:char;
b:real;
begin
writeln( 'Введите месяц и день', a, b);
readln (a,b);
if a='т' then Writeln( 'тяп ', b);
if a='л' then Writeln( 'ляк ',b);
if a='м' then Writeln( 'мяк ',b);
if a='б' then Writeln( 'бяк ',b);
end.
У него две монеты на сумму 7 копеек - то есть одна не пятак, а про вторую нечего не говорится, значит она может быть пятаком, а другая естественно 2 копейки!