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
Выделение произвольной области
<span>Выбрать
</span><span>Резинка
</span><span>Заливка
</span><span>Экранная лупа
</span><span>Карандаш
</span><span>Кисть
</span><span>Распылитель
</span><span>Текст
</span><span>Линия
</span><span>Кривая
</span>Прямоугольник
Многоугольник
И т.д
Графика - вид исскуства, использующий графические примитивы.
Достоинства растровой графики:
1. Распространённый тип изображения.
Недостатки растровой графики:
1. Многоцветные растровые изображения имеют большой объём.
2. При уменьшении несколько соседних точек объединятся в одну, то есть теряется качество изображения.
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>