Урок 14.1 Задача 7
Primary tabs
https://fkn.ktu10.com/?q=node/15820
Составьте программу, которая выводит на экран прямоугольный флаг N×M
вида (используйте циклы repeat):
?
1
2
3
4
- - - - - -
- - - - - -
- - - - - -
- - - - - -
- для вывода очередной строки используйте процедуру.
program u14_1_z7; var m:integer; procedure p1(); var i:integer; begin i:=1; repeat write('-',' '); i:=i+1; until(i > 6); writeln(); end; begin m:=0; repeat if (m = 6) then break; p1(); m:=m + 1; until (m > 6); writeln('konec'); readln(); end.
- Log in to post comments
- 28 reads
vedro-compota
Sat, 11/30/2024 - 16:03
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)