language: Pascal (gpc) (gpc 20070904)
date: 102 days 3 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c);
writeln(c div 1000)
end.