Урок 16. Задача №8. Решение.
Primary tabs
* Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:rewt34t54346t566то в ответ программа должны вывести:
r ew t34 t543 46t56 6
var str : string; i, j, count : integer; begin count := 1; writeln('Enter arbitrary string: '); readln(str); for i := 1 to length(str) do begin write(str[i], ' '); j += 1; if(count <= j) then begin writeln(); count += 1; j := 0; end; end; readln(); // Удержание консоль end.// Завершение программы
- Log in to post comments
- 1708 reads
vedro-compota
Sat, 05/09/2020 - 10:29
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)