Advertisement
Guest User

Untitled

a guest
Aug 17th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.32 KB | None | 0 0
  1. var
  2.  i,j: integer;
  3.  n,m: integer;
  4.  
  5. BEGIN
  6.  write('Введите n:');
  7.  readLn(n);
  8.  write('Введите m:');
  9.  readLn(m);
  10.  
  11.  For i:=1 to m do
  12.   begin
  13.    For j:=1 to n do
  14.     begin
  15.      if ((j mod 2) = 0) then
  16.       write('*')
  17.      else
  18.       write('#');
  19.     end;
  20.    writeLn;
  21.   end;
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement