![2^{16} = 65536](https://tex.z-dn.net/?f=+2%5E%7B16%7D+%3D+65536+)
т.е. для палитры из 65536 цветов требуется 16 бит памяти
это для ОДНОЙ точки на экране
1024 x 768 = 786432 (столько всего точек/пикселей)
теперь 768432 * 16 бит = 12582912 бит (объем для хранения всего изображения)
можно перевести из бит в килобайты
12582912 / 8 / 1024 = 1536 кБайт (или 1,5 МБайт)
Например, такая маска должна удовлетворять первым файлам и не удовлетворять вторым
*t*_*a*s
1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.
Var
n:integer;
begin
Write('n = '); Read(n);
Writeln(n div 100+(n div 10) mod 10+n mod 10)
end.
Пояснения.
n div 100 дает первую цифру: результат деления нацело числа на 100.
(n div 10) mod 10 дает вторую цифру: вычисляется результат деления нацело числа на 10 и от него берется остаток деления на 10.
n mod 10 дает третью цифру: остаток целочисленного деления числа на 10.