USES Crt;
VAR
A : STRING [255]; I: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите текст'); ReadLn(A);
I:=1;
While (I<=Length(A)) DO Begin
IF A[I]=' ' THEN Begin Insert (' ',A,I); I:=I+1; End;
I:=I+1;
End;
WriteLn(‘Измененный текст:’); WriteLn(A);
END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
