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

String47. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом «.» (точка). В конце строки точку не ставить.

Решение:

program String47;
var
 S:String;
 i:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') and (S[i-1]='.') then
     begin
      Delete(S,i,1);
      dec(i);
     end;
    if (S[i]=' ') and (S[i-1]<>'.') then S[i]:='.';
    inc(i);
   end;
  Writeln(S);
end.

program String47;

var

S:String;

i:integer;

begin

Write('S: ');

Readln(S);

i:=1;

While (i<=Length(S)) do

begin

if (S[i]=' ') and (S[i-1]='.') then

begin

Delete(S,i,1);

dec(i);

end;

if (S[i]=' ') and (S[i-1]<>'.') then S[i]:='.';

inc(i);

end;

Writeln(S);

end.

По условию к главе строка не может иметь пробелы в конце строки, поэтому в конце полученной строки не будет и точек.

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

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

program string_47;//PascalABC.NET

begin
  var s := ' Hello  world!   Hey!    Yoo!     Zzzz ';
  var s2 := '';
  
  for var i := 1 to s.Length do
  begin
    if s[i] = ' ' then continue
    else if s2 = '' then s2 += s[i]
    else if s[i - 1] = ' ' then s2 += '.' + s[i]
    else s2 += s[i];
  end;
  s2.Print; //Hello.world!.Hey!.Yoo!.Zzzz
end.

program string_47;//PascalABC.NET

var s := ' Hello world! Hey! Yoo! Zzzz ';

var s2 := '';

for var i := 1 to s.Length do

if s[i] = ' ' then continue

else if s2 = '' then s2 += s[i]

else if s[i - 1] = ' ' then s2 += '.' + s[i]

else s2 += s[i];

s2.Print; //Hello.world!.Hey!.Yoo!.Zzzz

Ответить

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

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

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

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