Задача 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ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.
var N: integer; function Flag(N: integer): integer; var k, i, L: integer; begin k := 0; // счетчик символов в строке L := 1; // длина строки мах for i:=1 to N do begin if(k = (L-1)) then begin writeln(i,' '); L := L + 1; k := 0; end else begin write(i,' '); k := k + 1; end end; end; begin writeln('vvedi mass elki'); readln(N); Flag(N); readln(); end.
- Log in to post comments
- 1295 reads
vedro-compota
Sun, 08/08/2021 - 12:53
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)