Из заданной строки получить новую заменив в ней все символы после первой звездочки (*) знаком "-" (если в строке нет звездочек оставить без изменения). Распечатать полученную строку. На паскале

Question

Информатика

Инна

10 февраля, 22:48

Из заданной строки получить новую заменив в ней все символы после первой звездочки (*) знаком "-" (если в строке нет звездочек оставить без изменения). Распечатать полученную строку. На паскале

+5

Ответы (1)

Знаете ответ на вопрос?

Добромысл · Answer 1

Var

S: string;

i: byte;

tmp: boolean;

begin

write ('Введите строку: ') ; readln (S) ;

for i : = 1 to Length (S) do

begin

if ((S[i] = '*') and (tmp = false)) then

begin

S[i] : = '-';

tmp : = true;

end;

if tmp = true then S[i] : = '-';

end;

writeln (S) ;

end.