Задание 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ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.
1 Способ:
var i,n,i1,a : integer; begin write('Vvedite chislo: '); readln(n); i:=1; i1:=1; a:=0; while(i1<=n) do begin repeat write(i1, ' '); i1:=i1+1; a:=a+1; until(i<=a) or (i1>n); a:=0; writeln(); i:=i+1; end; readln(); end.
2 Способ:
var i,n,i1,a : integer; begin write('Vvedite chislo: '); readln(n); i:=1; i1:=0; a:=0; while(i<=n) do begin if(i1=a) then begin writeln(i, ' '); i1:=i1+1; a:=0; end else begin write(i, ' '); a:=a+1; end; i:=i+1; end; readln(); end.
- Log in to post comments
- 821 reads
vedro-compota
Wed, 09/29/2021 - 19:17
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)