Задача 19 Урок 13.1
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 U131Z19; var n,m,l,i: integer; begin writeln('vvedite polozhitelnoe chislo'); readln(n); m:=1; l:=0; for i:=1 to n do begin write(i,' '); l:=l+1; if (l=m) then begin writeln(); m:=m+1; l:=0; end; end; readln(); end.
С вложенным циклом:
program U131Z19; var n,m,l,i: integer; begin writeln('vvedite polozhitelnoe chislo'); readln(n); m:=1; l:=0; i:=1; while i<=n do begin for l:=1 to m do begin write(i,' '); i:=i+1; end; writeln(); m:=m+1; end; readln(); end.
- Log in to post comments
- 1105 reads
vedro-compota
Tue, 09/14/2021 - 22:46
Permalink
1
-- проверить для вложенных циклов
_____________
матфак вгу и остальная классика =)
slavina036
Wed, 09/15/2021 - 08:39
Permalink
program U131Z19;