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