• Найдите первую и последнюю букву К в предложенном тексте и символы между ними замените звездочками.

Ответы 5

  • ДА я сделал это
    • Автор:

      gustavo17
    • 6 лет назад
    • 0
  • vars:string;a,e,n,i:Integer;beginwrite('Введите строку - ');readln(s);a:=length(s);for i:=1 to a do begin  if s[i]='К' then  begin  if e=0 then e:=i  else n:=i;  end; end;writeln(n);for i:=1 to a do begin  if (i<e) or (i>n) or (i=e) or (i=n) then  write(s[i])  else write('*'); end;end.
    • Автор:

      alba82
    • 6 лет назад
    • 0
  • 16 строчку команду writeln(n); удали чтобы цифра не появлялась
    • Автор:

      delgado
    • 6 лет назад
    • 0
  • Вот так лучше а то старый код с маленькой "к" не работал
  • vars:string;a,e,n,i:Integer;beginwrite('Введите строку - ');readln(s);a:=length(s);for i:=1 to a do begin  if (s[i]='К') or (s[i]='к') then  begin  if e=0 then e:=i  else n:=i;  end; end;for i:=1 to a do begin  if (i<e) or (i>n) or (i=e) or (i=n) then  write(s[i])  else write('*'); end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years