Задача 9 Урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1 N
1......N}M раз
var m, n, i,h: integer; begin writeln ('введите нужное число строк'); readln (m); writeln ('введите число до которого выводить'); readln (n); i:=1; while i<=m do begin h:=1; while h<=n do begin write (h,' '); h:=h+1; end; writeln(); i:=i+1; end; end.
- Log in to post comments
- 396 reads