Урок 17 Задача 07
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:rewt34t54346t566то в ответ программа должны вывести:
r ew t34 t543 46t56 6
Решение:
program u17z07; var s:string; i,j,count:integer; begin writeln('vvedite stroku:'); readln(s); count:=0; j:=1; for i:=1 to length(s) do begin write(s[i]); count:=count+1; if count=j then begin j:=j+1; writeln; count:=0; end; end; readln(); end.
Консоль:
vvedite stroku: rewt34t54346t566 r ew t34 t543 46t56 6
- Log in to post comments
- 683 reads