回 帖 发 新 帖 刷新版面

主题:pascal的文件操作

文件名(“NUMBER.in”)
文件读入两个自然数,用加号连接,如“113+355”,此题共5组测试数据,均在同一文件里
例:
文件读入:
113+355
234+432
789+564
123+684
257+943
屏幕输出:
468
666
1776
807
1200

回复列表 (共1个回复)

沙发

program number;
var s,s2:string;
    w,i,k1,k2,code:longint
begin
  assign(input,'number.in');
  reset(input);
  while not(eof) do
  begin
    readln(s);
    w:=pos('+',s);
    s2:='';
    for i:=1 to w-1 do
      s2:=s2+copy(s,i,1);
    val(s2,k1,code);
    s2:='';
    for i:=w+1 to length(s) do
      s2:=s2+copy(s,i,1);
    val(s2,k2,code);
    writeln(k1+k2);
  end;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册