Урок 13.1 Задача 20
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, n, z, z1:integer; begin writeln('vvedite chislo: '); readln(n); writeln(); a:=1; z1:=1; z:=z1; while (a<=n) do begin if z1=0 then begin writeln(); z1:=z+1; z:=z1; end else begin write(a, ' '); a:=a+1; z1:=z1-1; end; end; writeln(); writeln('konec'); readln(); end.
- Log in to post comments
- 238 reads