Var
s,s1:string;
i,n:integer;
begin
Write('Введите строку: '); Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
n:=Length(s1);
i:=n-(n mod 4);
while i>=4 do begin
Write(s1[i]);
i:=i-4
end;
Writeln
end.
Примеры
Введите строку: 123456789
8642
Введите строку: Слово
вл
Ответ под номером 3, 100 процентов
I = K х i
i = I / K
i = (1,5 х 8 х 1024 х 1024) / (1024 х 512) = 24 (бит) = 3 (байт).
N = 2i (значение i в битах)
N = 224 = 16777216 (цветов).
Ответ: для кодирования цвета пикселя было использовано 3 байта информации; максимально возможное число цветов в палитре равно 16777216.
Ответ:
Объяснение:
var
x, a, b:integer;
ras_x_a, ras_x_b, ras_a_b:integer;
ras_min:integer;
begin
x:=5;
a:=1;
b:=8;
ras_x_a:=abs(x-a);
ras_x_b:=abs(x-b);
ras_a_b:=abs(a-b);
if ((ras_x_a <=ras_x_b) and (ras_x_a <=ras_a_b)) then
ras_min:=ras_x_a
else
if ((ras_x_b <=ras_x_a) and (ras_x_b <=ras_a_b)) then
ras_min:=ras_x_b
else
if ((ras_a_b <=ras_x_a) and (ras_a_b <=ras_x_b)) then
ras_min:=ras_a_b;
writeln(ras_min);
end.
Для компа или для человека?