Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №15-5 / 15-5 / zadanie_5
.pas program Zadanie_5;
var
f: file of integer;
i: integer;
k: byte;
begin
assign (f,'zadanie_5.txt');
rewrite (f);
for k:=1 to 10 do
begin
write ('‚ўҐ¤ЁвҐ ',k,' зЁб«®: ');
read (i);
write (f,i);
end;
close (f);
assign (f,'zadanie_5.txt');
reset (f);
writeln ('‡ зҐЁп Ё§ ᮧ¤ ®Ј® д ©« :');
for k:=1 to 10 do
begin
read (f,i);
write (i,' ');
end;
close (f);
end.
var
f: file of integer;
i: integer;
k: byte;
begin
assign (f,'zadanie_5.txt');
rewrite (f);
for k:=1 to 10 do
begin
write ('‚ўҐ¤ЁвҐ ',k,' зЁб«®: ');
read (i);
write (f,i);
end;
close (f);
assign (f,'zadanie_5.txt');
reset (f);
writeln ('‡ зҐЁп Ё§ ᮧ¤ ®Ј® д ©« :');
for k:=1 to 10 do
begin
read (f,i);
write (i,' ');
end;
close (f);
end.