program operatory_logiczne; uses crt; var a,b,c:real; i,j,k:integer;
begin writeln ('program rysuje flage Japonii'); for i:=1 to 12 do begin for j:=1 to 24 do begin if ((i>4) AND (i<9) AND (j>10) AND (j<15)) then textcolor(red) else textcolor(white); write('x'); end; writeln; end; readln; end.
|
program operatory_logiczne; uses crt; var a,b,c:real; i,j,k:integer;
begin writeln ('program rysuje flage Japonii'); for i:=1 to 12 do begin for j:=1 to 24 do begin if ((i>4) AND (i<9) AND (j>10) AND (j<15)) then textcolor(red) else textcolor(white); write('x'); end; writeln; end; readln; end. |
program operatory_logiczne; uses crt; var a,b,c:real; i,j,k:integer;
begin writeln ('program rysuje flage Japonii'); for i:=1 to 12 do begin for j:=1 to 24 do begin if ((i>4) AND (i<9) AND (j>10) AND (j<15)) then textcolor(red) else textcolor(white); write('x'); end; writeln; end; readln; end. |
program operatory_logiczne; uses crt; var a,b,c:real; i,j,k:integer;
begin writeln ('program rysuje flage Japonii'); for i:=1 to 12 do begin for j:=1 to 24 do begin if ((i>4) AND (i<9) AND (j>10) AND (j<15)) then textcolor(red) else textcolor(white); write('x'); end; writeln; end; readln; end.
|