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

Предыдущий
вопрос Следующий
вопрос

program createTextDocument;

var
textDocument: text;
i, j, N, M: integer;

begin
assign(textDocument, 'text_document.txt');
rewrite(textDocument);

writeln('Enter the number of lines (N): ');
readln(N);
writeln('Enter the number of characters in each line (M): ');
readln(M);

for i := 1 to N do
begin
for j := 1 to M do
begin
write(textDocument, j mod 10);
end;
writeln(textDocument);
end;

close(textDocument);
writeln('Text document has been created.');
end.