Cod sursa(job #3999)
| Utilizator |  Dragomir Elena cascada |
Data | 29 decembrie 2006 23:54:06 |
|---|---|---|---|
| Problema | Semne | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.17 kb |
program elena;
var a,n,s:integer;
uses crt;
begin
write ('a=');readln(a);
writeln('n=');readln(n);
writeln('s=');readln(s);
for a to n do
write s:=a+a mod n;
end.