Решение 1 Задача 18 Урок 13
Primary tabs
(1 цикл) Пользователь передает целое положительное число 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 for c := 1 to n do begin write(c, ' '); d := d + 1; if d > m then begin writeln(); m := m + 1; d := 0; end; 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
- 1091 reads
vedro-compota
Wed, 11/03/2021 - 18:45
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)