Задача 20 Урок 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ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.Подсказки (если не получается решить самостоятельно или для лучшего понимания):
Разбор решения одним цилом: https://youtu.be/l_fOvs68xWY (link is external)
program u13_1_z20; // решение двумя циклами var n,i,m,j :integer; begin writeln('vvedite chislo n'); readln(n); i:=1; m:=1; j:=0; while (m <= n) do begin while (i <= m) and (j < n) do begin write(j,' '); i:=i + 1; j:=j + 1; end; writeln(); m:=m+1; i:=1; end; readln(); end.
program u13_1_z20; // решение одним циклами var n,i,m,j : integer; begin writeln('vvedite chislo n'); readln(n); i:=0; j:=1; m:=1; while (j <= n) do begin write(j,' '); i:=i + 1; j:=j + 1; if (i = m) then begin writeln(); i:=0; m:=m+1; end; end; readln(); end.
program u13_1_z20; // решение одним циклами с заменой while на for после видео разбора var n,i,m,j : integer; begin writeln('vvedite chislo n'); readln(n); i:=0; j:=1; m:=1; for j:=1 to n do begin write(j,' '); i:=i + 1; if (i = m) then begin writeln(); i:=0; m:=m+1; end; end; readln(); end.
- Log in to post comments
- 73 reads
vedro-compota
Tue, 11/26/2024 - 00:22
Permalink
program u13_1_z20; // решение
есть проблемы с форматированием
_____________
матфак вгу и остальная классика =)
mrn123
Wed, 11/27/2024 - 20:26
Permalink
program u13_1_z20; //
vedro-compota
Fri, 11/29/2024 - 12:30
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)