Question

Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2....

Answer 1

  program proga; 
 Var
 A: text;   
  i,j,n,m : byte;     
 d: string;     
 Sim:char; 
Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }             
  read(d);                                       
 assign(A,d);               
 rewrite(A);                   
  write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                       
 readln(m);                                   
  for I:=1 to n do                   
 begin                           
Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                             
  writeln(A);                   
 end;                           
close(A);
end.