Stack Overflow на русском Asked by Carbonex on February 2, 2021
Даны два файла f и g, необходимо в файл h внести все символы из файлов f и g в файл h. Все вроде как работает, но русские символы в файл заносит как ‘РРСРР’
uses crt;
const m=['a'..'z','A'..'Z'];
m2=['а'..'я','А'..'Я'];
var f,g,h:text;
i,j:integer;
ch:char;
s:string;
begin
assign (f,'f.txt');
assign (g,'g.txt');
assign (h,'h.txt');
reset(f); reset(g);
rewrite(h);
while not eof(f) do
begin
readln(f,s);
for i:=1 to length(s) do
begin
ch:=s[i];
if ch in m then write(h,ch)
else if ch in m2 then write(h,ch)
end;
writeln(h);
end;
while not eof(g) do
begin
readln(g,s);
for i:=1 to length(s) do
begin
ch:=s[i];
if ch in m then write(h,ch)
else if ch in m2 then write(h,ch)
end;
writeln(h);
end;
close(h);
close(g);
close(f);
end.
Get help from others!
Recent Questions
Recent Answers
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP