Урок 13.1 Задача 18
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
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.
program u13z18; var i,a,m,n: integer; begin writeln('vvedite chislo n'); readln(n); a:=1; m:=1; while (a <=n) do begin for i:=1 to m do begin if (a <=n)then write(a,' '); a:=a + 1; end; m:=m+1; if (a<=n)then writeln(); end; readln(); end.
- Log in to post comments
- 930 reads
vedro-compota
Sun, 09/11/2022 - 15:34
Permalink
подумать над решением одним
подумать над решением одним циклом (без вложенных)
_____________
матфак вгу и остальная классика =)
mrn123
Mon, 09/19/2022 - 16:52
Permalink
program u13z18;
vedro-compota
Sun, 09/25/2022 - 19:36
Permalink
1) лучше начать с a:=1; тогда
-- тут есть лишние?
_____________
матфак вгу и остальная классика =)