19 lines
328 B
ObjectPascal
19 lines
328 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. |