Форум - паскаль

Форум	» Назад на решение задач по физике и термеху
Регистрация \| Профиль \| Войти \| Забытый пароль \| Присутствующие \| Справка \| Поиск

» Добро пожаловать, Гость: Войти | Регистрация

	Форум Информационные технологии паскаль
	Отметить все сообщения как прочитанные [ Помощь ] » Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>

Одна страница
Модераторы: paradise, KMA

deimas93

Новичок
var
s :string;
p, i :longint;
begin
readln(s);
p := 1;

while (p + 30 < length(s)) do begin
writeln(copy(s, 1, 30));
p := p + 30;
end;

for i := 1 to 30 - (length(s) - p + 1) do
write(' ');
write(copy(s, p, length(s) - p + 1));

end.

Всего сообщений: 1 | Присоединился: май 2013 | Отправлено: 2 мая 2013 20:22 | IP

Отправка ответа:

Имя пользователя Вы зарегистрировались?
Пароль Забыли пароль?
Сообщение
Использование HTML запрещено
Использование IkonCode разрешено
Смайлики разрешены

Опции отправки
Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да Нет

Переход к теме
<< Назад Вперед >> Одна страница