Задача 20 Урок 13.1
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
Один цикл:
var a,b,n,m:integer; begin a:=1; writeln('vvedite cislo'); readln(n); m:=1; b:=m; repeat write(a,' '); m-=1; a+=1; if (m=0) then begin writeln(); m:=b+1; b:=m; end; until (a>n); readln(); end.
Вывод консоли:
vvedite cislo 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
Два цикла:
var a,b,m,i:integer; begin b:=1; m:=1; writeln('vvedite chislo'); readln(a); while (b<=a) do begin for i:=1 to m do begin if (b<=a) then write(b,' '); b+=1; end; begin writeln(); m:=m+1; end; end; 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
- 144 reads