Решаем задачи Абрамян на Паскале. Param35

Param35. Описать процедуру TrimRightC($$S$$, $$C$$), удаляющую в строке $$S$$ конечные символы, совпадающие с символом $$C$$. Строка $$S$$ является входным и выходным параметром. Дан символ $$C$$ и пять строк. Используя процедуру TrimRightC, преобразовать данные строки.

Решение:

program Param35;

type

St=String;

var

S:St;

C:Char;

i:integer;

Procedure TrimRightC(var S:St;C:Char);

var

i:integer;

begin

for i:=length(S) downto 1 do

if s[i]<>C then break;

delete(S,i+1,length(S)-i);

end;

begin

Write('C: ');

Readln(C);

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

TrimRightC(S,C);

Writeln(S);

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param35

Комментарии:

Добавить комментарий Отменить ответ