uses crt;
var s,sl: string;
i,k: integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:='';
end;
writeln('Количество слов, начинающихся и заканчивающихся одной буквой = ',k);
readkey
end.
N = 2^i, где
N - количество цветов,
V = K* I, где
V - объем,
K - размер фотографии,
I - количество бит на пиксель.
N = 2^i.
4096 = 2^i.
I = 12 бит.
V = K * I =( 1024*2048*12)/2^23 = (2^10 * 2^11 * 2^2 * 3)/2^23 = (2^23 * 3)/2^23 = 3 мбайта.
Ответ: 3 мбайт.
Просто пишите Writeln(a:10:5) и с помощью форматного вывода получаете число в стандартном виде. Первое число отвечает за кол-во символов для записи переменной, а второе число отвечает за число символом после запятой