Всички думи слети

Да се напише програма, която позволява да се въведе изречение от няколко думи и след това извежда всички думи слети.

Публикувано в 10в с етикети . Постоянна връзка.

One Response to Всички думи слети

  1. kaloyan каза:
    VAR s:string;
        i:integer;
    BEGIN
      write('Vavedi izrechenie: '); readln(s);
      for i:=1 to length(s) do begin
        if s[i]=' ' then delete(s,i,1);
      end;
      writeln(s);
    readln;
    END.      

Вашият коментар