Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.
1).1 символ - 1 байт.
В 1 кбайте - 1024 байт или 2^10 байт.
Переведем 22,5кб в байты: 22,5 * 2^10 = 23 040 или же 22,5 * 1024 = 23 040.
Теперь 23 040/180 = 128 .
2). Вторую задачу не знаю как решить, либо вы условие не правильно написали. Там вроде ещё должно быть написанно сколько 1 символ занимает бит.
Чёрный - 1, серебристый - 2, коричневый - 3, белый - 4.
1 - 1-2-3-4
2 - 1-2-3-4
3 - 1-2-3-4
4 - 1-2-3-4
Ответ: г) - 16.
Ван нужно перевести килобайты в байты?
0,25 Кб = 256 б
Связанный элемент,свободный элемент и вычисляемый элемент