maxutka
@maxutka
Как всегда, в своем репертуаре

Как распечатать все части слова, начинающиеся с заданного символа на языке Turbo Pascal?

Не могу придумать алгоритм, который будет из слова выводить части этого слова начинающиеся с произвольного введенного символа. Например: слово "Evanescent", при введенной "E" должен вывести: Evanescent escent ent Спасибо.
  • Вопрос задан
  • 64 просмотра
Решения вопроса 1
maxutka
@maxutka Автор вопроса
Как всегда, в своем репертуаре
Вопрос закрыт
var
    str,let,tmp:string;
    i,k,j:integer;
    x:array[1..50] of integer;

    begin
    readln(str);
    readln(let);
    tmp:=str;
    j:=1;
    while pos(let,tmp) > 0 do begin
        x[j]:=pos(let,tmp);
        tmp[pos(let,tmp)]:='0';
        inc(j);
    end;
    for i:=1 to j-1 do begin
       for k:=x[i] to length(str) do begin
           write(str[k]);
       end;
    writeln;
    end;
    end.
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы