Задача 4.
Создать
текстовый файл, состоящий из nстрок. В
каждой строке по nцифр без
пробелов. Последняя цифра в первой строке, предпоследняя цифра во второй
строке, и т.д. должны быть единицы, все остальные цифры - ноли. Имя файла и
числоn должны вводиться в соответствующие поля
ввода.
После
выполнения программы проверьте содержимое файла с помощью текстового редактора
(например, Блокнота).
Например,
если в качестве nбыло введено
число 5, то в файле должно быть записано следующее
00001
00010
00100
01000
10000
var f:text;
s:string;
i,k,n:integer;
begin
readln(s);
readln(n);
assign(f,s);
rewrite(f);
for i:=1 to n do
begin
for k:=1 to n do
if(n-i-k+1=0)then
write(f,'1')
else
write(f,'0');
writeln(f,'');
end;
close(f);
end.
