Задание 9 Урок 13.1
Primary tabs
Задание 9 Урок 13.1
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было: (см. задание в уроке)
var i,i1,i2,n,m : integer; begin i1 := 0; i2 := 1; write('Введите N и нажмите ENTER: '); readln(n); write('Введите M и нажмите ENTER: '); readln(m); while (i1 < m) do begin for i := 1 to 2 do begin repeat write(i2, ' '); i2 += 1; until (i2 >= n); writeln(); i2 := 1; end; writeln(); i1 += 1; end; write('Программа завершена, нажмите ENTER!'); readln(); end.
- Log in to post comments
- 535 reads