19 lines
328 B
ObjectPascal
19 lines
328 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> '+filename);
|
|||
|
|
end.
|