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