Cod sursa(job #1549)

Utilizator ruscugabiruscu gabriel ruscugabi Data 14 decembrie 2006 08:17:32
Problema A+B Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
Raporteaza aceasta sursa 
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss\fcharset238{\*\fname Arial;}Arial CE;}}
\viewkind4\uc1\pard\f0\fs20 program suma;\par
var f:text;\par
     a,b,s:integer;\par
write('a=');read(a);\par
write('b=');read(b);\par
s:=a+b;\par
assign(f,'adunare in');\par
reset(f);read(f);\par
rewrik(f);write(f);\par
read(f,a);\par
close(f);\f1\par
}