- Код: Выделить всё
{ Подсчет общей длины слов и их количества в массиве }
len:= 0; i:=1;
while Length(A[i])>0 do begin
len:= len + Length(A[i]);
Inc(w);
Inc(i);
end;
Blanks:= 80-len; { Общее кол-во пробелов между словами }
Модераторы: Oleg_D, Модераторы
{ Подсчет общей длины слов и их количества в массиве }
len:= 0; i:=1;
while Length(A[i])>0 do begin
len:= len + Length(A[i]);
Inc(w);
Inc(i);
end;
Blanks:= 80-len; { Общее кол-во пробелов между словами }
Герман писал(а):На здоровье.
Герман писал(а):В книге с ответами в секции функции ExpandTo80 в строке " len:= 0; i:=1; " не хватает " w := 0 ":
Герман писал(а):Я пишу для тех, кому еще предстоит проходить задания.
Герман писал(а):книгу " Песни о питоне " не собираетесь писать?
Вернуться в Книга "Песни о Паскале"
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0