Cod sursa(job #1767241)
| Utilizator | Data | 28 septembrie 2016 20:45:18 | |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
program sumaadouanumere;
var x,y : text; a, b, s: integer;
begin
assign(x, adunare.in);
assign(y, adunare.in);
reset(x);
while not eoln(x) do
begin
read(x, a, b);
s:=a+b;
end;
writeln(y, s);
close(x);
close(y);
readln;
end.
