Задача 18 урок 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 zadacha18; var i, j, n, m: integer; begin writeln('Vvedite chislo N:'); readln(n); m:=1; i:=1; repeat j:=1; while (j<=m) and (i<=n) do begin write(i, ' '); i:=i+1; j:=j+1; end; writeln(); m:=m+1; until i>=n; readln(); end.
В 1 цикл:
program zadacha18; var i, j, n, m: integer; begin writeln('Vvedite chislo N:'); readln(n); m:=1; i:=1; j:=2; repeat If m = j then begin writeln(); j:=j+1; m:=1; end; write(i, ' '); i:=i+1; m:=m+1; until i > = n; readln(); end.
- Log in to post comments
- 1470 reads
vedro-compota
Sun, 12/05/2021 - 13:39
Permalink
переделать через for
переделать через for
_____________
матфак вгу и остальная классика =)
Denisyndi
Mon, 12/06/2021 - 14:58
Permalink
Решение через for
vedro-compota
Sun, 12/12/2021 - 13:11
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)