Cod sursa(job #120847)
Utilizator | Data | 6 ianuarie 2008 20:48:47 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.08 kb |
var a,b,s:longint;
begin
read(a,b);
s:=a+b;
if s<2000000 then write(s);
end.
Utilizator | Data | 6 ianuarie 2008 20:48:47 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.08 kb |
var a,b,s:longint;
begin
read(a,b);
s:=a+b;
if s<2000000 then write(s);
end.