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

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

Не могу придумать алгоритм, который будет из слова выводить части этого слова начинающиеся с произвольного введенного символа. Например: слово "Evanescent", при введенной "E" должен вывести: Evanescent escent ent Спасибо.
  • Вопрос задан
  • 74 просмотра
Решения вопроса 1
maxpoitn2point
@maxpoitn2point Автор вопроса
Как всегда, в своем репертуаре
Вопрос закрыт
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.
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы
17 февр. 2020, в 00:30
1500 руб./за проект
16 февр. 2020, в 22:28
2000 руб./за проект
16 февр. 2020, в 22:03
1200 руб./в час