Урок 13.1 Задача 19
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18:
1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1
var n, z, z1:integer; begin writeln('vvedite chislo: '); readln(n); writeln(); z1:=1; z:=z1; while (n<>0) do begin if z1=0 then begin writeln(); z1:=z+1; z:=z1; end else begin write(1, ' '); n:=n-1; z1:=z1-1; end; end; writeln(); writeln('konec'); readln(); end.
- Log in to post comments
- 290 reads