Напечатать номер последней буквы к и количество этих букв в тексте

@nekitoz12 · Регистрация: 19.12.2016

Author24 — интернет-сервис помощи студентам

3)Дан текст из строчных латинских букв, за которым следует точка. Напечатать номер последней буквы к и количество этих букв в тексте

@ZX Spectrum-128 · 19.12.2016, 10:43

Pascal

// номер
for i:=length(s) downto 1 do
 if s[i]='k' then
   begin
    n:=i;
    break;
   end;
// количество
k:=0;
for i:=1 to length(s) do
 if s[i]='k' then
  inc(k);

@volvo · 20.12.2016, 01:38

Я бы в одном цикле сделал:

Pascal

  k := 0;
  for i := 1 to Length(s) do
    if s[i] = 'k' then
    begin
      inc(k); last := i;
    end;

@nekitoz12 0 / 0 / 0 Регистрация: 19.12.2016 Сообщений: 4
		1
	Напечатать номер последней буквы к и количество этих букв в тексте 19.12.2016, 09:21. Показов 1056. Ответов 2 Метки нет (Все метки) 3)Дан текст из строчных латинских букв, за которым следует точка. Напечатать номер последней буквы к и количество этих букв в тексте 0

	20.12.2016, 01:38

Напечатать номер последней буквы к и количество этих букв в тексте

Решение