Afişează mesaje
Pagini: [1]
1  infoarena - concursuri, probleme, evaluator, articole / Arhiva de probleme / Răspuns: 000 A+B : Iunie 19, 2009, 18:09:29
Sursa pentru Delphi:  Tongue

"
var a, b: longint; f: textfile;
begin
  assignfile(f, 'adunare.in'); reset(f); readln(f, a, b); closefile(f);
  assignfile(f, 'adunare.out'); rewrite(f); writeln(f, a+b); closefile(f);
end.
"
Pagini: [1]
Powered by SMF 1.1.19 | SMF © 2006-2013, Simple Machines