Задача 18 Урок 13.1
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"
var n,i,j,m:integer; begin writeln('Vvedite celoe chislo: '); readln(n); j:=1; m:=1; while m<n do begin for i:=1 to j do begin write(m,' '); if(m<n) then m:=m+1; end; j:=j+1; writeln(); end; end.
Консоль:
Vvedite celoe chislo: 20 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 20
- Log in to post comments
- 614 reads