1. найдите объём текста в килобайтах, записанного в кодировке unicode, если он занимает 3 страницы. на
каждой странице 52 строки. в каждой строке по 64 символа.
2. сколько символов содержит алфавит, с которого был записан текст объемом 2560 б,
содержащим 2560 символов?
3. для хранения растрового изображения размером 512x512 пикселей отвели 256 кб памяти. определите
максимально возможное число цветов в палитре изображения.
4. определите объем растрового изображения в байтах размером 100x100 пикселей при глубине цвета 8 бит.
!
begin
writeln('введите числа (0 признак окончания ввода)');
readln(a);
b:=1;
while (a<>0) do begin
readln(a);
if (a mod 2 = 0) and (a<>0) then b:=b*a;
end;writeln('произведение чётных чисел последовательности ',b);
end.
2.var a,b:integer;
begin
b:=0;
a:=1;
while (a<=10000) do begin
if (a mod 10 = 0) then b:=b+1;
a:=a+1;
end;
writeln('количество круглых чисел ',b);
end.
3.var a,b:integer;
begin
writeln('введите числа (1 признак окончания ввода)');
readln(a);
b:=0;
while (a<>1) do begin
readln(a);
if (a mod 7 = 0) then b:=b+1;
end;
writeln('цифра 7 встречается ',b,' раз');
end.
4.var a,b:integer;begin
writeln('введите числа (0 признак окончания ввода)');
b:=0;
a:=1;
while (a<>0) do begin
readln(a);
if (a<>0) then b:=a*a+b;
end;writeln('сумма квадратов ',b);
end.