一楼度娘 不要吞

program keys;
type
int=0..9; var
le:string;
a,b,l:integer;
ke:string;
ke2:array[1..50]of int;
t,m:text;
function kmod(k,l:integer):integer; begin
while k>l do
begin
k:=k - l;
end;
end; begin assign(t,'信件.txt');
assign(m,'密信.txt');
write('请输入密钥，共若干位，一位数，一次输入'); readln(ke);
for a:=1 to length(ke) do
begin
val(ke[a], ke2[a],b);
end;
{Read the keys.}
b:=0; reset(t);
readln(t,le);
l:=length(le);
{Read the letter.} for a:=1 to l do
begin
for b:=1 to ke2[ kmod(a,length(ke))] do
begin
le[a]:=succ(le[a]);
end;
end;
{Change the letter.} rewrite(m);
write(m,le);
{Write the letter.} close(t);
close(m);
readln;
end.

小弟的一个程序 现在转c++了 求翻译成c++

自顶 不能沉啊不能沉

不要沉啊 芝麻来人！！！！召唤大神啊！！！！！芝麻来人


想问
lz
是不懂pascal类语法还是不懂c++类语法

只是求翻译啊 不管怎样 只是翻译

不懂pascal

芝麻来人 召唤cp通吃的大神！！！！！

芝麻来人 召唤cp通吃的大神！！！！！

芝麻来人 召唤cp通吃的大神！！！！！