пятница, 1 февраля 2013 г.

[Информатика] Решение задачи 4 из "Файлы текст запись"


Задача 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.