Урок 13.1 Задание 10
Primary tabs
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
var i, j,m,n: integer; begin i := 1; writeln('vvedite n'); readln (n); writeln('vvedite m'); readln (m); repeat j := 1; while (j<=n) do begin write( j, ' '); j:=j+1; end; writeln(); i:=i+1; until (i > m); end.
Консоль:
vvedite n 12 vvedite m 9 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12
var i, j,m,n: integer; begin i := 1; writeln('vvedite n'); readln (n); writeln('vvedite m'); readln (m); repeat j := 1; while (j<=n) do begin write( j, ' '); begin if (n mod 1=0) then j:=j+1 else begin if (n/2)>0 then j:=((j+1) div 2); end; end; end; writeln(); i:=i+1; until (i > m); end.
- Log in to post comments
- 586 reads
vedro-compota
Sun, 01/29/2023 - 13:31
Permalink
+
+
_____________
матфак вгу и остальная классика =)