Задача 10 Урок 13.1
Primary tabs
M раз выведите на экран числа от 1 до N с помощью вложенных циклов
var i, j,m,n: integer; begin i := 1; writeln ('vvedite ogranichitel') ; readln (m); writeln ('vvedite chislo'); readln (n); repeat j := 1; while (j<=n) do begin write(j, ' '); j:=j+1; end; writeln(); i:=i+1; until (i > m); readln(); end.
Вывод консоли:
vvedite ogranichitel 10 vvedite chislo 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9
- Log in to post comments
- 328 reads