Урок 17 Задача 7
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
var s: string; i, j, m: integer; begin j:= 0; m:= 1; writeln('Введите произвольную строку:'); readln(s); for i:=1 to length(s) do // обходим символы строки begin j:=j+1; // увеличиваем счетчик символов в строке на 1 write(s[i]); // выводим символ на экран if (j = m) then // если счетчик символов в строке сравнялся с максимумом begin writeln (); // переходим на новую строку m:=m+1; // увеличиваем максимум символов в строке j:=0; // сбрасываем счетчик символов в строке end; end; readln(); end.
Вывод в консоли:
Введите произвольную строку: fgfdskner;lnllrenponckvl ,bs'btortoot549-8jtpdofng59rthndggjyithfngkn f gf dsk ner; lnllr enponc kvl ,bs 'btortoo t549-8jtp dofng59rth ndggjyithfn gkn
- Log in to post comments
- 428 reads