Решение 2 Задача 18 Урок 13
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 n, m, c, d : integer; begin c := 1; writeln('Vvedite celoe polozhitelnoe chislo'); readln(n); m := 0; d := 0; if n > 0 then begin while c <= n do begin for d := 1 to m do begin if c <= n then write(c, ' '); c := c + 1; end; m := m + 1; writeln(); end; end else writeln ('Error!'); end.
КОНСОЛЬ
Vvedite celoe polozhitelnoe chislo 23 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
- Log in to post comments
- 741 reads