Предмет: Информатика,
автор: bains9929
Записать текст в файл F. Переписать компоненты файла F в файл H , вставляя в начало каждого слова по двум пробела. Паскаль
Ответы
Автор ответа:
0
Program primer;
Var
f,h:text;
I: integer;
S: string;
Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);
Writeln('текст в файл F: ');
readln(s);
writeln(f,s); //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,' ');
For i:=1 to length(s) do
begin
write(h,s[i]); //Переписать компоненты файла F в файл H
if (s[i]=' ') then
begin
write(h,' '); //вставляя в начало каждого слова по двум пробела
end;
end;
close(f);
close(h);
end.
// Паскаль ABC
Var
f,h:text;
I: integer;
S: string;
Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);
Writeln('текст в файл F: ');
readln(s);
writeln(f,s); //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,' ');
For i:=1 to length(s) do
begin
write(h,s[i]); //Переписать компоненты файла F в файл H
if (s[i]=' ') then
begin
write(h,' '); //вставляя в начало каждого слова по двум пробела
end;
end;
close(f);
close(h);
end.
// Паскаль ABC
Похожие вопросы
Предмет: Қазақ тiлi,
автор: надиюша1
Предмет: Русский язык,
автор: lelykirina
Предмет: Українська мова,
автор: KOT123568
Предмет: Алгебра,
автор: ulisava72
Предмет: Алгебра,
автор: dora77