Задача 7 урок 16
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
program project1; var s: string; L,i,n,j:integer; begin writeln('Vvedite s > 10 :'); readln(s); L:=1; i:=1; while (length(s)>=i) do //длина диапазона begin for j:= 1 to L do //длина строки (кол-во фрагментов строки) begin if (length(s) >=i) then begin write(s[i], ' '); i:=i+1; end; end; writeln(); L:=L+1; end; readln(); end.
- Log in to post comments
- 1305 reads
vedro-compota
Wed, 10/06/2021 - 21:02
Permalink
решить одним циклом
решить одним циклом
_____________
матфак вгу и остальная классика =)
nglag
Thu, 10/07/2021 - 11:17
Permalink
решение елочки одним циклом:
nglag
Thu, 10/07/2021 - 11:15
Permalink
*
*