Задача 4 Урок 14.2
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой". ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.
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('vvedite chislo'); readln(N); Flag(N); readln(); end.
Вывод консоли:
vvedite chislo 30 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
- Log in to post comments
- 57 reads