Во введенной строке заменить все запятые на точки, а точки — на восклицательные знаки

@4ch · Регистрация: 24.10.2012

Author24 — интернет-сервис помощи студентам

Доброе время суток. Возник вопрос по написанию данной программы.

Задание:
Во введенной строке заменить все запятые на точки, а точки - на восклицательные знаки. Подсчитать количество сделанных замен.

Pascal

type
line=string;
var
s1,s2,s3:string;
begin
   s1:='.';
   s2:=',';
   s3:='!';
   s2:=s1;
   s1:=s3;

Kodzaev · 05.12.2012, 19:59

Pascal

Var
  s: String;
  k,i: Integer;
BEGIN
Writeln('Введите строку:');
Readln(s);
For i:=1 to Length(s) do
begin
  If s[i]='.' Then
  begin
    s[i]:='!';
    Inc(k);
  end;
  If s[i]=',' Then
  begin
    s[i]:='.';
    Inc(k);
  end;
end;
Writeln('Полученная строка:');
Writeln(s);
Writeln('Количество сделанных замен: ',k);
Readln
END.

	05.12.2012, 19:59