Последовательность символов

[ноунейм]

Убрать из введенной последовательности символов многократные пробелы. Программу на СИ.

[dosha]

наработки?

[Stilet]

С потолка:

MODULE Предложение;
 IMPORT StdLog,Strings;
 PROCEDURE do*(Строка:ARRAY OF CHAR);
 VAR i,k,res:INTEGER;
  s:ARRAY(255) OF CHAR;
 BEGIN
  i:=0;
  WHILE Строка[i]#CHR(0) DO
   s[i]:=Строка[i];
   INC(i);
  END;
  StdLog.Clear;
  StdLog.String(Строка);
  i:=0;
  WHILE i#-1 DO
   Strings.Find(s,'  ',i,k);
   IF k#-1 THEN
    Strings.Replace(s,k,3,' ');
   END;
   i:=k;
  END;
  StdLog.Ln;
  StdLog.String(s);
 END do;
END Предложение.

Достал из архива, так что не проверял.

[ноунейм]

Из наработок только попытки разобраться, как работают putchar() и getchar() (

Мне нужна программа на СИ... в фортране мало что понимаю...

[Stilet]

в фортране мало что понимаю...

Я тоже в нем ничего не понимаю, потому и написал на Обероне.
А в следующий раз если не будешь указывать язык, тему закрою.

[ноунейм]

Так я же указал