Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.