Урок 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ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.
program Project1; var a,b,c,n,d: integer; begin writeln('Введите число'); readln(n); a:=0; c:=n; b:=1; d:=0; while (a<=n) do begin a:=1; if (a <= n) then write(a,' '); if (a = c) then begin writeln(); d:=d+1; b:=d+1; c:=c+b; end; end; readln(); end
.
- Log in to post comments
- 206 reads