Составить 2 программы:1.Создаёт текстовый файл mir.txt содержащий 12 чисел введённых с клавиатуры.2.Считать информацию из текстового файла mir.txt и вывести её на экран манитора.
Составить 2 программы:
1.Создаёт текстовый файл mir.txt содержащий 12 чисел введённых с клавиатуры.
2.Считать информацию из текстового файла mir.txt и вывести её на экран манитора.
Гость
Ответ(ы) на вопрос:
Гостьvar
r, i : integer;
begin
assign (output, 'mir.txt'); rewrite (output);
for i := 1 to 12 do
begin
read (r);
write (r);
end;
end.
Если информация любая, то:
var
c : char;
begin
assign (input, 'mir.txt'); reset (input);
while not eof do
begin
read (c);
write (c);
end;
end.
Гость1 задача.
var a,i:integer;
f1:text;
begin
assign (f1,'mir.txt');
rewrite (f1);
for i:=1 to 12 do begin read ( a);
write (f1,a);
end;
close (f1);
end.
2 задача.
var a,i:longint;
f1:text;
begin
assign (f1,mir.txt');
reset(f1);
while not eoln(f1) do writeln (a);
close (f1);
end.
Писала на Паскале.
Не нашли ответ?
Похожие вопросы