8 lines
168 B
ObjectPascal
8 lines
168 B
ObjectPascal
Program trololo;
|
|
var k,d,r,s:integer;
|
|
Begin
|
|
ReadLn(k,d);
|
|
r:=k div d;
|
|
s:=k mod d;
|
|
WriteLn('Если разделить ',k,' на ',d,'Получится ',r,'(остаток ',s,')');
|
|
end. |