Задача 4 Урок 14
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - - + + + + + + - - - - - - + + + + + + - - - - - --- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные аргументы.
var a:integer; procedure cikl(z:integer); var i: integer; begin for i:=1 to 6 do if((a mod 2)=0)then write('+ ') else write('- '); writeln(); end; begin for a:=1 to 5 do cikl(a); readln(); end.
- Log in to post comments
- 381 reads
vedro-compota
Wed, 10/06/2021 - 21:16
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)