Предмет: Информатика,
автор: Vera1972
Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2....
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: instuk67
Предмет: Русский язык,
автор: a2d4g6j8
Предмет: Русский язык,
автор: 16Лера11
Предмет: Математика,
автор: kumushaikz