Задача 4 урок 14
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - - + + + + + + - - - - - - + + + + + + - - - - - -
program zadacha4; var n, m, j: integer; z: boolean; procedure flag(a:boolean; b:integer); var i: integer; begin if a then for i:=1 to b do write('+') else for i:=1 to b do write('-'); end; begin writeln('Vvedite N'); readln(n); writeln('Vvedite M'); readln(m); for j:=1 to n do begin if j mod 2 = 0 then z:=true else z:=false; flag(z,m); writeln(); end; readln(); end.
- Log in to post comments
- 956 reads
vedro-compota
Sun, 12/12/2021 - 13:16
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)