14.12.2020/lesson/a21a6226-431c44di-bba3-312b7640692с ТЕКСТ ЗАДАНИЯ
Элементарным объектом, используемым в растровом графическом редакторе является
Р
палитра цветов
ЛИНИЯ
повторяющиеся объекты
точка (пиксель)
графический примитив (прямоугольник, круг и т.д.)
и над
Bnepe
Var
se:set of char;
s:string;
i,j,k:integer;
begin
k:=0;
se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
var ars:=s.split;
for i:=0 to ars.Length-1 do
for j:=1 to length(ars[i])-1 do
if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
begin
inc(k);
break;
end;
writeln('Res=',k);
end.
Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2