19 lines
385 B
ObjectPascal
19 lines
385 B
ObjectPascal
// Программа, выводящая текст в файл a.txt
|
|
const
|
|
n = 30;
|
|
filename = 'pifagor.txt';
|
|
|
|
var f: Text;
|
|
|
|
begin
|
|
assign(f,filename);
|
|
rewrite(f);
|
|
for var i:=1 to n do
|
|
begin
|
|
for var j:=1 to n do
|
|
write(f,i*j:4);
|
|
writeln(f);
|
|
end;
|
|
close(f);
|
|
writeln('Таблица умножения записана в файл '+filename);
|
|
end. |