После символа «:» вставить «*», если количество символов «=» равно 5 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

Решение задачи: «После символа «:» вставить «*», если количество символов «=» равно 5»

textual
Листинг программы
var s: string;
    i, k: integer;
begin
  writeln('Enter string:');
  readln(s);
  k := 0;
  for i := 1 to length(s) do if s[i] = '=' then inc(k);
  if (k = 5) and (pos(':', s) > 0) then insert('*', s, pos(':', s) + 1);
  writeln('Result:');
  writeln(s);
  readln
end.

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы