Решение задачи №5 из главы 14
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Вывод консоли немного не то vvedite chislo N: 17 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
var a, i, j, k:integer; function cikl(var n:integer):integer; begin for i:=1 to N do begin write(i, ' '); j:=0; j := j + 1; end; end; begin writeln('vvedite chislo N:'); readln(a); k:=1; cikl(a); if (j>=k) then begin writeln(); j:=0; k:=k+1; end; readln(); end.
- Log in to post comments
- 5100 reads
vedro-compota
Thu, 11/12/2020 - 19:39
Permalink
не по условию
не по условию
_____________
матфак вгу и остальная классика =)
vedro-compota
Thu, 11/12/2020 - 19:40
Permalink
это решение основывается на
это решение основывается на идее решения вложенными циклами.
_____________
матфак вгу и остальная классика =)
gani84
Sun, 07/11/2021 - 12:56
Permalink
Исправил
vedro-compota
Sun, 07/11/2021 - 13:16
Permalink
глобальные переменные
алгоритмически решение правильно
замечания:
+ потом будем исправлять по примечание:
_____________
матфак вгу и остальная классика =)
gani84
Sun, 07/25/2021 - 12:00
Permalink
Исправил
vedro-compota
Sun, 07/25/2021 - 12:04
Permalink
сначала решите вложенными
сначала решите вложенными циклами, потом будем переделывать на использование процедуры
_____________
матфак вгу и остальная классика =)