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.
К концу 19 века согласно данным таблицы в состав Российской империи вошли:
- из народов Сибири: шерцы, алтайцы;
- из народов европейской степи: крымские татары;
- народы западных губерний: поляки, литовцы, евреи, румыны, молдаване, болгары и др.;
- народы Закавказья (Грузины, Армяне, Азербайджанцы, Курды, Абхазы, и др.);
- народы Северного Кавказа (Чеченцы, Аварцы, Осетины, Лезгины, Кабардинцы, Даргинцы, Кумыки, Ингуши, Лакцы и табасараны, Черкесы, Карачаевцы, Балкарцы и др);
- народы Средней Азии (Казахи, Киргизы, Узбеки, Таджики, Туркмены, Каракалпаки, Уйгуры и др.)
К концу 19 века согласно данным таблицы в состав Российской империи вошли:
- из народов Сибири: шерцы, алтайцы;
- из народов европейской степи: крымские татары;
- народы западных губерний: поляки, литовцы, евреи, румыны, молдаване, болгары и др.;
- народы Закавказья (Грузины, Армяне, Азербайджанцы, Курды, Абхазы, и др.);
- народы Северного Кавказа (Чеченцы, Аварцы, Осетины, Лезгины, Кабардинцы, Даргинцы, Кумыки, Ингуши, Лакцы и табасараны, Черкесы, Карачаевцы, Балкарцы и др);
- народы Средней Азии (Казахи, Киргизы, Узбеки, Таджики, Туркмены, Каракалпаки, Уйгуры и др.)
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.