Автор: Bronislav

Bronislav — Sat, 30 Jun 2018 11:33:48 +0000

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

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.

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

Автор: Bronislav