А можно подробнее? я не очень понял но срадостю помогу
1) "ЛЕКЦИЯ"
2) "F=18"
3) "COPY('ИНФОРМАТИКА',3,6);"
4) "24 + 24 =48"
5) "ЭЛЕКТРО"
*кавычки не входят в ответ
Var
s:string;
i,n1,n2:integer;
begin
Write('Введите строку: '); Readln(s);
n1:=0; n2:=0;
for i:=1 to Length(s) do
case s[i] of
'*':Inc(n1);
'!':Inc(n2)
end;
Writeln('Найдено *: ',n1,', !: ',n2)
end.
<em><u>Тестовое решение:</u></em>
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4
Глубина цвета
16 цветов = 2^4 = 4 бит
1024 * 128 * 4 = 524288 бит
524288 бит / 8 = 65536 байт / 1024 = 64 Кбайт
Ответ: 64 Кбайт