Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;
Изображение: 1024х512
Память: 256Кбайт
1) 256Кбайт * 1024 = 256*1024 байт
2) 1024*512 / 256*1024 = 512 / 256 = 2
3) т.е. 1 байт должен хранить информацию о 2-ух пискелях. т.к. 1Байт = 8 бит, то 8Бит / 2 = 4 бит (4 бита = 1 пиксель)
4) 2^4 = 16 цветов
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
0.0814907253 Тб ≈ 85,449.2188 Мб ≈ 700,000,000 Бит
1 Тб = 1024 Гб
1 Гб = 1024 Мб
1 Мб = 1024 Кб
1 Кб = 1024 Б
1 Б = 8 Бит
Чтобы узнать размер в тех или иных величинах, нужно умножать/делить на 8 или 1024