Код: Выделить всё
const
L=80;
Var
T: Array [1..100] Of String;
i, N: Integer;
Begin
WriteLn (' Выравнивание текста по правому краю.');
WriteLn ('Введите текст (окончание ввода - пустая строка): ');
i := 0;
Repeat
i := i + 1;
ReadLn (T [i] );
Until T [i] = '';
N := i - 1;
For i := 1 To N Do
Begin
While Copy (T [i], Length (T [i] ), 1) = ' ' Do
Delete (T [i], Length (T [i] ), 1);
While Length (T[i]) < L do
Insert(' ',T[i],1);
End;
WriteLn;
For i := 1 To N Do
WriteLn (T [i] );
ReadLn;
End.
Код: Выделить всё
Var
T: Array [1..100] Of String;
i, N : Integer;
Begin
WriteLn ('Выравнивание текста по левому краю.');
WriteLn ('Введите текст (окончание ввода - пустая строка): ');
i := 0;
Repeat
i := i + 1;
ReadLn (T [i] );
Until T [i] = '';
N := i + 1;
For i := 1 To N Do
While Copy (T [i], 1, 1) = ' ' Do Delete (T [i], 1, 1);
Insert(' ',T[i],1);
WriteLn;
For i := 1 To N Do
WriteLn (T [i] );
ReadLn;