Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 5 лаб. Файлы текстовые / Program1
.pas uses crt;
Var t: Text;
i,j: Byte;
s: String;
begin
Assign(t,'1.txt');
Rewrite(t);
For i:=1 to 9 do
begin
For j:=1 to 9 do
begin
Writeln(t,i,'*',j,'=',i*j);
end;
end;
Close(t);
readln;
end.
Var t: Text;
i,j: Byte;
s: String;
begin
Assign(t,'1.txt');
Rewrite(t);
For i:=1 to 9 do
begin
For j:=1 to 9 do
begin
Writeln(t,i,'*',j,'=',i*j);
end;
end;
Close(t);
readln;
end.
Соседние файлы в папке 5 лаб. Файлы текстовые