Правила форума
В тексте из "n" строк выравнять строки так , чтобы каждая строка имела длину 65 символов. Выравнивание производится за счёт вставки пробелов.
_______________________________________________________________
Program lab;
Var
s:array [1..100] of string;
n,i:integer;
begin
writeln('Vvedite text');
i:=0;
repeat
i:=i+1;
readln(s[i]);
until s[i]='';
n:=i-1;
for i:=1 to n do
if length(s[i])>65 then
writeln('Переход на новую строку')
else
writeln('Вставка пробелов');
insert('',s[i],1);
writeln;
for i:=1 to n do
writeln(s[i]);
readln;
end.
__________________________________________________________________
Подскажите как сделать переход на новую строку если длина превысила 65.
 Выравнивание строк(помогите) |
