Cod sursa(job #279380)
| Utilizator |  Vlad Frasineanu vladcf |
Data | 12 martie 2009 20:03:59 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
Program suma;
Var a,b,c,s:integer;
Begin
Write('a=');Readln(a);
Write('b=');Readln(b);
Write('c=');Readln(c);
s:=a+b+c;
If s mod 2=0 Then write('Suma este para');
If s mod 2=1 Then write('Suma este impara');
Readln;
End.