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

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

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

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

Войти через центр авторизации
Похожие вопросы
от 150 000 до 200 000 руб.
VOLKA Лимассол
от 200 000 до 300 000 руб.
от 50 000 до 100 000 руб.
26 июн. 2019, в 20:56
10000 руб./за проект
26 июн. 2019, в 20:44
3000 руб./за проект
26 июн. 2019, в 19:34
300 руб./за проект