Add Pascal learning files
This commit is contained in:
8
PascalABCnet/div mod/k div mod d.pas
Normal file
8
PascalABCnet/div mod/k div mod d.pas
Normal file
@@ -0,0 +1,8 @@
|
||||
Program trololo;
|
||||
var k,d,r,s:integer;
|
||||
Begin
|
||||
ReadLn(k,d);
|
||||
r:=k div d;
|
||||
s:=k mod d;
|
||||
WriteLn('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',k,' <20><> ',d,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',r,'(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',s,')');
|
||||
end.
|
||||
Reference in New Issue
Block a user