var s : string;
k, kol, i : integer;
begin
Write('Введите строку : ');
ReadLn(s);
for i:=1 to length(s) do
if s[i]=' ' then k:=i;
for i:=k+1 to length(s) do
if s[i]='k' then inc(kol);
WriteLn('В последнем слове буква "k" встречается ',kol,' раз.');
ReadLn;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
