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

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

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: 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?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

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

Форум работает на скрипте © Ikonboard.com